檢查項目的存在口齒不清

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)))))