list - Lisp，关于列表和递归的几个问题

Question

很抱歉问了这么多问题。

我有以下内容:

(defun recursive-function (string) "returns list of strings"
;I am trying to return flat list
; create list L
(append (mapcar 'recursive-function L)))

但是由于递归函数返回一个列表，我最终得到一个列表列表的列表...，而我只想要一个平面列表。

对采用标量并返回标量列表的函数实现递归的正确方法是什么？

谢谢。

Answer 1

如果我没理解错的话，您可以结合使用reduce 和append 来在返回之前展平列表。

示例:

(reduce 'append '((1) (2) (3)))

输出:

(1 2 3)

在您的情况下，这可能有效:

(reduce 'append (mapcar 'recursive-function L))