aqui les dejo una parte del cod..
Código :
(print "Introduzca el valor de e") (setq e (read-line)) (setq cone(string-to-list e)) (print "Introduzca el valor del conjunto c") (setq c (read-line)) (setq conc(string-to-list c)) (setq p (pertenece 'b '(a b c))) (princ "Resultado de PERTENECE ") (print p) (read-char)
¿Quien es el que sabe algo?