lunes, 21 de enero de 2008

Devolver el Ultimo Elemento de un Lista en Lenguaje Scheme

Defina una función rac que, pasándole como parámetro una lista con al menos un elemento, devuelve el último elemento de la lista.

(define (rac L)
(cond
((null? L) #f )
((not(list? L)) L )
(else (rac (cdr L)))))