将一个函数分成多行

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)))))

您必须像这样阅读代码：

• 每个边对都是一个 cons 列表。每个 cons 存储一个位置。
• 循环返回边对列表。
• 然后append被应用到这个列表并返回一个conses列表。缺点列表实际上是一个位置列表。

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

• APPLY 不适用于任意长度的列表。因此，我们希望列表不会太长。

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