list - 编写一个返回偶数列表的方案

Question

编写一个 Scheme 函数，返回给定整数列表中的偶数列表。该列表可能并不简单，可能会出现嵌套列表，您需要在其中找到偶数。

(DEFINE (偶数列表)将其用作主体并得到这样的结果(DEFINE (偶数列表)结果:(2 4 6 4)

(define (evenlist numberlist)
  (cond
    ((null? numberlist) '())
    (else(not (= 0 (modulo (numberlist) 2))(evenlist(car numberlist))))
    ))

这就是我所做的，我是 lisp 的新手所以不要怪我:(

Answer 1

如果输入列表是任意嵌套的列表列表，则您需要做更多的工作。这是处理此类列表(情况:空列表、非列表或列表列表)的标准模板，加上附加逻辑以展平结果(这就是为什么在此处使用 append):

(define (evenlist numberlist)
  (cond ((null? numberlist) '())
        ((not (pair? numberlist))
         (if (even? numberlist) (list numberlist) '()))
        (else
         (append (evenlist (car numberlist))
                 (evenlist (cdr numberlist))))))