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

如何解决关于在列表 LISP 中找到给定数字的相同数字的问题

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

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

解决方法

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

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

可能的结果是什么？

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

(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