如何摆脱计划中的额外列表级别？下面

Question

我的函数必须接受，看起来像这样输入：

(getlist '(a b '(a b) 1 2 '() '(1 2))) 

函数必须然后输出原始列表中的所有表的列表。所以输出应该像

"((a b)()(1 2))" 

，但我得到这个：

"((quote (a b)) (quote()) (quote (1 2)))" 

我得到正确的价值观，但他们都包裹着附引号额外的名单内。我该如何解决？

谢谢

;function to return all lists in a list 
(define (getlist lst) 
    ;if list is empty 
    (if (null? lst) 
     ;true 
     '() 
     ;false 
     (if (list? (car lst)) 
      ;true 
      (cons (car lst) (getlist (cdr lst))) 
      ;false 
      (getlist (cdr lst))))) 

Answer 1

这是因为输入列表确实包含列表(quote (a b))，(quote())和(quote (1 2))。
符号quote永远不会被评估。

'不是“列表构建”操作符。
它是quote特殊形式的简写形式，它导致其参数不被评估。

由于整个列表被引用，因此您没有评估'(a b) - 即(quote (a b)) - 结果是列表(quote (a b))。

解决方法是，以除去所有的报价，除了最外面的一个：

> (getlist '(a b (a b) 1 2() (1 2))) 
'((a b)() (1 2))