lisp中的flatten list

Question

所以我一直在研究lisp中的扁平化列表。

但是，我想要做的是逐层展开列表。

因此而不必

(flatten '(a (b (d (g f))) e)) = (a b d g f e)

我想

(flatten '(a (b (d (g f))) e)) = (a b (d (g f)) e)

如何做到这一点的家伙你知道吗？

非常感谢=）

Answer 1

你可以做这样的事情，例如：

(defun fletten-level (tree) 
    (loop for e in tree 
     nconc 
     (if (consp e) 
      (copy-list e) 
      (list e)))) 

(fletten-level '(a (b (d (g f))) e)) 
;; (A B (D (G F)) E) 

这遍历原树顶级分支，并创建包含如果分支是一个新的列表叶子，叶子，如果分支有两个其他分支，那么第一片叶子和其余的分支。

编辑：对不起，第一次真的不好，现在应该修好了。

编辑2：只是因为我几乎糊涂自己。 (cons (car e) (cdr e))看起来有点不可思议，因为它基本上只是说e。然而，我意识到nconc将破坏性地修改conses，所以它必须是这样的（即创建一个新的cons cell来连接而不是重用旧的cell）。编辑3：哇...实际上，它必须是copy-list，因为它会以这种方式修改原始列表。

Answer 2

我的继承人快速和肮脏的大上无损版本：

(defun flatten-level (tree) 
    (cond ((null tree)()) 
     ((consp (car tree)) (concatenate 'list (car tree) 
             (flatten-level (cdr tree)))) 
     (t (cons (car tree) (flatten-level (cdr tree)))))) 

这是走的树，并为每个元素，如果它加到它到cons'ed元素的递归函数树的其余部分变平。