检查项目的存在口齿不清

Question

要完成练习，我需要检查一个元素是否在列表或没有。我知道，有在口齿不清功能member，但我们的教练是非常严格的，不会让我们使用还没有被覆盖在使用过程中的事情。

什么是检查是否一个原子是在列表中只使用cond，nil，car，not，cdr，+，equal，defun的方法吗？

---

编辑： Doseke的评论后，这里是一个尝试：

(defun presence (list item) 
    (cond 
     ((atom list) nil) 
     ((equal (car list) item) t) 
     ((consp list) (presence (cdr list) item)) 
     (t nil) 
    ) 
    ) 

编辑：我改变了标题，使其与我的实际问题相匹配

Answer 1

既然你在使用的功能有限，它可能是这样的，我猜：

(defun member-2 (x xs) 
    (cond ((not xs) nil) 
     ((equal x (car xs)) xs) 
     (t (member-2 x (cdr xs)))))