返回嵌套列表的嵌套深度n上的所有元素

Question

我真的很困惑如何做到这一点......我什至不知道如何开始，我知道如何做一个二叉树，但我希望能够用任何形式的嵌套列表来做到这一点，任何人都可以帮助我吗？

Answer 1

对于这一个，你需要使用模板遍历任意嵌套的元素列表。例如，研究这个复制任意嵌套列表的程序：

(define (copy lst) 
    (cond ((null? lst)    ; if list is empty 
     '())      ; return the empty list 
     ((not (list? (car lst))) ; if current element is not a list 
     (cons (car lst)   ; cons current element 
       (copy (cdr lst)))) ; with the rest of the list 
     (else      ; if current element is a list 
     (cons (copy (car lst))  ; cons recursive call over current element 
       (copy (cdr lst)))))) ; with recursive call over rest of the list 

先有一点约定。假设1是基本级别，并且返回的所有元素都将位于平面输出列表中（不保留输入列表的原始结构）。例如：

(elements-level '(1 2 3) 1) 
; => '(1 2 3) 

(elements-level '(1 (2) 3) 2) 
; => '(2) 

考虑到上面的模板，让我们看看如何修改它解决手头的问题。我会让你填写的空白，因为这个问题看起来像功课：

(define (elements-level lst lvl) 
    (cond ((or (null? lst) (< lvl 1))  ; if list is empty or below level 
     '())        ; return the empty list 
     ((not (list? (car lst)))   ; if current element is not a list 
     (if (= lvl <???>)     ; if `lvl` is the base level 
      (cons <???>     ; cons current element in list 
       (elements-level <???> lvl)) ; and advance recursion over cdr part 
      (elements-level <???> lvl))) ; else advance recursion over cdr part 
     (else        ; if current element is a list 
     (append       ; use `append` for flattening the list 
      (elements-level <???> <???>)  ; recur over car, decrease one level 
      (elements-level <???> <???>))))) ; recur over cdr, keep the same level 

测试与此列表中的程序，它必须为1水平，'(2)回到'(1)为2水平，等等：

(elements-level '(1 (2 (3 (4 (5))))) 1) 
; => '(1) 

Answer 2

我认为你可以使用递归与步骤如下：

1. 定义列表，以保持在第n个深度的所有元素。
2. 创建一个递归函数，该函数nested list，new list和n作为参数
3. 对于嵌套循环中的每个元素，通过使子列表和深度为n-1个调用递归函数本身。
4. 的nested list的所有元素添加到new list当n = 0

一旦这个方法执行完毕后，你会在new list深度n的所有元素。

可能增强： 如果有可能的一些列表中的元素不会延伸至第n级，那么你可能想调用递归方法之前检查元素的类型。如果它是leaf类型的，那么只需将该元素添加到新列表中。