将一个函数分成多行

Question

以下是令人惊叹的《Land of Lisp》一书中的示例源代码：

(defun random-node ()
  (1+ (random *node-num*)))

(defun edge-pair (a b)
  (unless (eql a b)
     (list (cons a b) (cons b a))))

(defun make-edge-list ()
    (apply #'append (loop repeat *edge-num*
                          collect (edge-pair (random-node) (random-node)))))

由于我没有 Lisp 直觉，我发现将方法分成多行（作为命令式样式）然后尝试将其变形为函数式样式很有用。

你能帮我把 make-edge-list 函数分成多行吗？

Answer 1

在 Lisp 中，行是没有意义的。 Lisp 表示法基于 s 表达式，并且在评估期间 Lisp 看不到文本行。您可以在空格上以任何方式拆分表达式。​​

(defun make-edge-list ()
   (apply #'append
          (loop repeat *edge-num*
                collect (edge-pair (random-node)
                                    (random-node)))))

你必须像这样阅读代码：

• 每个边对都是一个 conses 列表。每个 cons 存储一个位置。
• 循环返回边对列表。
• 然后将 append 应用于此列表并返回 conses 列表。 conses 列表实际上是一个位置列表。

注意该函数有几个小问题：

• APPLY 不适用于任意长度的列表。所以希望这份名单不会太长。

• 更重要的是，如果我们稍微改变一下 LOOP，就不需要应用 APPEND 函数。 LOOP不仅可以COLLECT，还可以APPEND。