将函数分成多行
以下是一本惊人的书“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)))))
没有找到相关结果
已邀请:
1 个回复
际恃啸称桅
(defun make-edge-list () (apply #'append (loop repeat *edge-num* collect (edge-pair (random-node) (random-node)))))