(defun cauta (L n) (cond ((null L) nil) ((equal n (car L)) t) ((listp (car L)) (or (cauta (car L) n) (cauta (cdr L) n))) ((cauta (cdr L) n)))) (setf a '(1 2 1 5 (3 4) 5)) (print ( cauta a 4))
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more