lisp - 为什么 lisp 函数评估错误的参数？

Question

我定义了一个函数来进行重复的函数调用:

(defun repeat (n f x)
               (if (zerop n) x
                 (repeat ((- n 1) f (funcall f x)))))

现在我想应用cdr:

(repeat (1 (function cdr) '(1 2 4 5 6 7)))

我显然提供了 n=1、f=cdr 和 x='(1 2 3 4 5 6 7)。它应该应用 cdr 一次。这是我收到的错误消息:

Error: Funcall of 1 which is a non-function. 
[condition type: TYPE-ERROR]

但是我有一个 funcall 的 cdr，而不是 1。

我使用的是 Franz 的 Allegro Lisp 免费版。

Answer 1

Lisp 中的函数调用语法是:

(<function> <arg1> <arg2> <arg3> ...)

所以表达式...

(1 (function cdr) '(1 2 4 5 6 7))

... 被评估为“在参数 cdr 和 '(1 2 4 5 6 7) 上调用函数 1” .

换句话说，你有一组额外的括号。尝试:

(repeat 1 (function cdr) '(1 2 4 5 6 7))

同样的问题存在于你的递归调用中。