Recursion

(defun our-member (obj lst)

(if (null lst)
    nil
    (if (eql (car lst) obj)
        lst
        (our-member obj (cdr lst)))))

你可能感兴趣的:(Recursion)