LISP-简单的函数，语法错误？

Question

我目前正在尝试学习 lisp 并在 linux 上使用 emacs。尽我所能，我写了两个函数。

这两个函数都先删除列表的第一个元素。

• series 添加给定列表中的所有元素。
• parallel 1) 取列表中每个数字的倒数，然后 2）添加列表中的所有元素，然后 3) 取元素和的倒数。

---

代码：

(defun series (lst)
    (apply #'+' (cdr lst)) )

(defun parallel (lst)
    (/ 1 (apply #'+' (apply #'/' (cdr 'lst ) ) ) ))

---

我可以评估该功能，但是当我尝试使用该功能时，如下所示：

(series (list 3 3 4 5))

我收到错误：值 CDR 不是预期的 NUMBER 类型。 我看到了这一点，我想，为什么 emacs 将 cdr 视为一个数字而不是一个函数？ 我是 lisp 和 emacs 的新手，所以我不知道如何修复这个错误。任何帮助将不胜感激。

---

更新

我在这段代码中有问题，我认为它可以工作......

(defun series (lst)
 (apply #'+ (cdr lst) ))

(defun parallel(lst)
(/ 1 (apply #'+ (mapcar #'/ (make-list (- (length lst) 1) :initial-element 1) (cdr lst)  ) )))

希望我现在尝试做的事情被理解了。

Answer 1

回复：

(defun parallel (lst)
    (/ 1 (apply #'+' (apply #'/' (cdr 'lst ) ) ) ))

为什么是你试图丢弃第一个元素。这很好奇。

请注意，即使解决了引用问题，此函数的逻辑也不会起作用。

(apply #'/ (cdr lst)) 会将lst 的剩余部分传递给/ 函数。这个函数会产生一个数字。

然后你实际上是(apply #'+ number)，问题是apply 想要一个列表。

您暗示的并行语义不会发生。

也许你想要这个：

 ;; divide the sum of the remaining elements, by the fraction of those elements
 (/ (apply #'+ (cdr lst)) (apply #'/ (cdr lst)))

请注意，在 Emacs Lisp 中，整数除以整数会产生整数，而不是像 Common Lisp 中那样的有理数。

Answer 2

您有额外的撇号使 LISP 解析器感到困惑。引用+ 函数的语法就是#'+；没有“关闭报价”。