无法从 LISP 中的数字中减去？

Question

所以我正在实现一个函数，该函数在 LISP (Allegro mlisp) 中为一个项目获取列表的前 n 个元素，但我似乎无法弄清楚为什么我不能进行减法计算。我不断得到

我的这个方法的代码是，它在监听器中编译得很好

(defun get_upto (n cut_list)
(if (= n 0) cut_list 
    (cons (car cut_list) (get_upto ((- n 1) (cdr cut_list))))))

但如果我尝试执行

$: (get_upto 3 '(1 2 3 4 5))

我得到了错误

Error: Illegal function object: (- n 1)

我在这里做错了什么？我传入一个数字，检查 n = 0 没有问题。

Answer 1

你的括号太多了！

这是“从n中减去1，并将结果作为第一个参数传递给get_upto”

(get_upto (- n 1) (cdr cut_list))

但你有这个：

(get_upto ((- n 1) (cdr cut_list)))

即“从 n 中减去 1，并将计算结果用作第一个参数为 (cdr cut_list) 的函数”