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)))))
Suscribirse a:
Enviar comentarios (Atom)


No hay comentarios:
Publicar un comentario