一致的括号？

Question

我想使用递归函数编写代码来取消LIST中的括号。

以下是一个例子：

(unnest '(1 (2 (3)) (4 5))) ==> (1 2 3 4 5)

Answer 1

(defun unnest (lst)
  (cond ((null? lst) '())
        ((not (list? lst)) (list lst))
        (t
         (append (unnest (car lst))
                 (unnest (cdr lst))))))

> (unnest '(1 (2 (3)) (4 5))) 
(1 2 3 4 5)

基本上这个想法如下：

• 如果您有空列表，那么您显然不需要取消它;
• 如果不是列表，则它必须是原子，因此您返回包含该原子的列表;
• 在最后一个条件中，你有一个列表，所以你基本上说：unnested列表的结果是附加到列表其余部分的unnested版本的第一个元素的unnested版本就是这样，递归照顾其余部分。

希望它有所帮助。