lisp - defun 以列表作为参数

Question

我正在尝试将 Lisp 作为我的新语言，但我遇到了一些问题，无法弄清楚如何让函数的一部分处理传递给它的列表的每个元素。

为了学习如何解决这个问题，我正在尝试编写一种相当基本的除法形式，当列表中的一个元素为 0 时不会发出声音(而是只返回 0)

(defun divtest (elements)
  (dolist (x elements)
    (if (zerop x) 0 () )
  (/ elements)))))

我尝试将其运行为:

(divtest '(20 2 5))

产生:

*** - /: (20 2 5) is not a number

失败点似乎源于这样一个事实，即我在将列表中的元素传递给函数之前没有“提取”它们(在这种情况下，/和 dolist 都不能按预期工作，因为 x 从未评估为0).如果我是对的，有人可以告诉我如何执行此“提取”吗？

---

注意:此问题与 one that I've asked earlier 有关，但由于我不清楚之前答案的哪一部分实际上允许它按预期解决这个特定问题，我决定进一步研究基础知识

Answer 1

/ 将一个或多个数字作为参数，但在您的代码中，您传递给它的是一个列表 - 显然这是行不通的。函数 apply 是你的 friend - (apply #'foo a b (list c d e)) 等同于 (foo a b c d e)。请注意，要使用的函数和最终列表之间的 apply 参数是可选的，因此 (apply #'/'(20 2 5)) 等同于 (/20 2 5)。

此外，您尝试删除零也不会奏效。 dolist 正在为参数列表 elements 中的每个项目评估它的主体，但您实际上并没有做任何事情来更改 elements 的内容(评估 dolist 的主体的结果并没有像您预期的那样重新分配给源元素。

remove-if 函数(及其破坏性的对应函数 delete-if)正是您要寻找的。下面显示了如何使用它(它需要很多可选参数，为此您无需担心)。

(defun divtest (elements)
  (apply #'/ (remove-if #'zerop elements)))

另请注意，如果 elements 列表的第一个元素为零(假设我了解该函数的用途)，则这将无法正常运行。所以你可能想要类似的东西

(defun divtest (elements)
  (apply #'/ (first elements) (remove-if #'zerop (rest elements))))

有关详细信息，请参阅 Hyperspec。