lunes, 21 de enero de 2008

Ver si un Elemento esta en la Lista en lenguaje Scheme

Escriba una función miembro? que permita verificar (verdadero o falso) si x es un elemento que está en la lista ls usando equal? para comparar (no puede usar el procedimiento member de scheme)


(define (miembro? x Lista1)
(if (null? Lista1)
#f
(if (eq? x (car Lista1))
#t
(miembro? x (cdr Lista1)))))

No hay comentarios: