(defun describe-paths (location edges) (apply #'append (mapcar #'describe-path (cdr (assoc location edges)))))
有什么相似之处?或者,这里还有另一个问题吗?
describe-paths函数(来自Land of Lisp中基于文本的冒险游戏!)生成从给定位置出发的路径的描述。 Lasp of Lisp
describe-paths