如何在LISP中定义LAMBDA函数？

Question

我不能使用所有的lambda函数，因为我得到这个错误： 应用/ 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)) ...，带有“尖锐”符号。与apply相同，请使用#'+。

写作#'(lambda ....)与写作(function (lambda ....))相同。还有一个宏lambda，它可以让你在那里写作(lambda ...)。

还看到：

• CLHS: apply
• CLHS: function designator