lunes, 21 de enero de 2008

Funcion Palíndroma en lenguaje Scheme

(define (palindroma Lista)
(cond
((null? Lista) #t)
((null? (cdr Lista)) #t)
((eq? (car Lista) (rac Lista)) (palindroma (rdc (cdr Lista))))
(else #f)))