lunes, 21 de enero de 2008

Añadir al Final un Elemento en Lenguaje Scheme

Defina una función snoc que, pasándole como parámetro una lista y un elemento, devuelve una lista formada por la lista pasada como primer parámetro a la que se le ha añadido como último elemento el segundo parámetro.

(define(snoc Lista1 Aux)
(if (null? Lista1)
(cons Aux null)
(cons (car Lista1) (snoc(cdr Lista1) Aux))))

2 comentarios:

Anónimo dijo...

Hey una pregunta trate de correr tu sentencia y por alguna razon no identifica null, a que se debe esto?. Gracias por tus aportaciones me ayudaron mucho a entender!

Serch dijo...

(define (snoc Lista1 Lista2)
(if (null? Lista1)
(list Lista2)
(cons (car Lista1) (snoc (cdr Lista1) Lista2))
)
)

prueba con este codigo, no entiendo porque no interpreta el null, deberia hacerlo sin problemas