关于在列表 LISP 中查找给定数字的相同数字的问题

Question

所以我试图接受两个参数，一个列表和一个数字，当且仅当数字等于列表中的任何元素时才返回 true

(defun find-num(a z)
    (if (= z (car a)) (write t))
    (if (not(= z (car a))) (find-num (cdr a)) )
    (if (not(= z (car a))) (write f) )
    )

(find-num '(1 2 3 4 5) 5)

所以我假设代码会执行这些步骤 如果 z 等于 a ，则返回 true， 如果 z 不等于 a ，则写入 f （返回 false ）或跳转到递归函数，该函数在其余列表中查找数字，直到找到相同的数字

但是，我收到了这样的错误

VAL/APPLY: Too few arguments (1 instead of at least 2) given to
      FIND-NUM

我不确定是哪一部分搞砸了

我尝试使用 cond 语句，但也收到了同样的错误

(defun find-num(a z)
    (cond
    ( (= z (car a)) (write t) )
    ( (not(= z (car a))) (find-num (cdr a)) ) 
    ( (not(= z (car a))) (write f) )
        )
    )

(find-num '(1 2 3 4 5) 5)

Answer 1

错误信息很清楚，不是吗？

提供给 FIND-NUM 的参数太少（1 个而不是至少 2 个）

您正在使用一个参数调用函数FIND-NUM，但该函数需要两个。您的函数具有参数a 和z。那是两个。但是你的递归调用是(find-num (cdr a))。这只是一个论点：(cdr a) 的值。

另一个问题：f 不是 Lisp 中 false 的值。 f 是一个未定义的变量。评估 (not t) 以查看 Lisp 中的 false 值究竟是什么。

CL-USER > (not t)     

结果可能是什么？

接下来你需要检查你的函数是否返回正确的结果。

Answer 2

(defun find-num (arr num)
  (cond ((null arr) nil)              ;; if no arr element equals num -> nil
        ((= (car arr) num) t)         ;; if first element of array equals num -> t
        (t (find-num (cdr arr) num)))) ;; otherwise search in rest of arry for num