在 lisp 中如何使用函数作为变量？

Question

我正在尝试编写一个函数来检查列表 x 中的每个元素是否都具有属性 a，所以我写道：

(defun check (a x)
  (if (listp x)
    (eval (cons 'and (mapcar #'a x)))))

但它不起作用。 （基本上我希望 a 是函数的名称，例如 blablabla，并在检查函数的主体中，由 #'a 我想指的是函数 blablabla，而不是名为 a 的函数。）现在上面的代码不起作用。我认为在 Lisp 中应该能够插入函数。我该如何修复它？

（这实际上是我第一天使用 lisp，所以这可能是一个愚蠢的问题；） 顺便说一句，我正在使用 Lispworks 6.0 个人版本。）

Answer 1

这里不需要使用尖引号语法。其目的是在变量位置使用函数名称，但 a 已经是一个变量。只需编写 a 而不是 #'a。

Answer 2

您不需要eval，您可以使用apply。
对于问题：您需要 funcall 因为您提供 a 作为参数。 （编辑：不是在这种情况下。）通过引用，您只是引用函数 a 而不是此函数中的 a。

(defun check (a xs)
  (if (listp xs)
      (every #'identity (mapcar a
                                xs))))

更好，使用loop：

(defun check (a xs)
  (if (listp xs)
      (loop for x in xs
            always (funcall a x))))

最好，使用every：

(defun check (a xs)
   (if (listp xs)
     (every a xs)))

Answer 3

这是我如何编写类似您的检查功能的内容。我尝试给它起一个更具描述性的名字。

(defun are-all-elements-fullfilling-fun-p (fun ls)
  (every #'identity (mapcar fun ls)))

编辑：请注意，一个更短、更好的定义是

(defun are-all-elements-fullfilling-fun-p (fun ls)
      (every fun ls)))

现在假设我们想用这个函数调用它。请注意，我倾向于尽可能使用声明。我经常搞砸一些事情，如果编译器能够找出错误，那么调试就很容易。而且代码运行速度会更快。

(defun is-even-p (n)
  (declare (type number n))
  (the boolean (= 0 (mod n 2))))

您必须在此处放置#'：

(are-all-elements-fullfilling-fun-p #'is-even-p '(1 2 3 4))
(are-all-elements-fullfilling-fun-p #'is-even-p '(38 2 4))