以列表为参数的 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 是你的朋友 - (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。

Answer 2

或者你可以这样写

(defun divtest (elements)
  (if (member 0 elements)
      0
      (apply #'/ elements)))

Answer 3

(block exit
  (reduce #'/ '(1 2 3 0 5)
          :key (lambda (x)
                 (if (zerop x)
                     (return-from exit 0)
                   x))))

Answer 4

尝试用(apply / elements) 代替(/ elements)。我认为（？）这应该适用于 Lisp 的大多数方言。