lunes, 21 de enero de 2008

Devolver la Lista Multiplicada por un factor en lenguaje Scheme

Escriba una función scale que devuelva la lista pasada como entrada con sus elementos escalados (multiplicados) por un factor dado.

(define (scale Lista1 x)
(if (null? Lista1) '()
(cons(* x (car Lista1))(scale (cdr Lista1) x))))