lisp - 在 Lisp 中应用的参数

Question

我遇到了以下问题:当尝试将 APPLY 函数与 MAPCAR 调用一起使用时，传递给 APPLY 的 lambda 函数仅包含一个参数，即 MAPCAR 返回的列表，出现以下错误:*** - EVAL/APPLY:给 :LAMBDA 的参数太多

以下代码确定异构列表是否在任何级别的最后一个原子是数字原子。

(DEFUN hasLastNumeric (L)
  (COND
   ((NUMBERP L) T)
   ((ATOM L) NIL)
   ((LISTP L)
    (APPLY #'(LAMBDA (Lst)
                     (COND ((EQ (LAST Lst) T) T)
                           (T NIL)))
           (MAPCAR 'hasLastNumeric L)))))

(WRITE (hasLastNumeric '(1 2 5)))

Answer 1

您不需要申请。你为什么要用它？请记住:APPLY 调用函数并使用提供的列表作为参数列表。

MAPCAR 返回一个列表。

(let ((foo (mapcar #'1+ '(1 2 3 4))))
   (cond ((eql (last foo) ...) ...)
       ...))

还要检查 last 实际返回的内容...