lambda - 如何在 LISP 中定义 LAMBDA 函数？

Question

我根本无法使用 lambda 函数，因为我得到了这个错误:apply/funcall 的参数不是函数:(LAMBDA (E) (COUNT_ATOMS M E))。

代码是:

> (DEFUN count_atoms (m l)
>     (COND ((ATOM l) (COND ((EQUAL m l) 1)
>                       (t 0)))
>       (t (APPLY '+
>                 (MAPCAR '(LAMBDA (e) (count_atoms m e))
>                         l)))))

为了

(count_atoms 3 '( (3 3) 3 (4 4) 5))

它应该打印 3。

这里有什么问题吗？

Answer 1

使用(MAPCAR #'(LAMBDA (e) (count_atoms m e)) ...，带有“sharp”符号。与apply相同，使用#'+.

编写 #'(lambda .... ) 与编写 (function (lambda .... )) 相同。还有一个宏 lambda 可以让你只写 (lambda ... ) 就可以了。

另见:

• CLHS: apply
• CLHS: function designator