編寫一個返回偶數列表的方案

Question

編寫一個Scheme函數，該函數返回給定整數列表中的偶數列表。該列表可能並不簡單，可能會出現嵌套列表，您需要查找偶數這些數字。使用

（DEFINE（evenlist numberlist） 此作爲一個機構和獲取結果某事像這樣 （DEFINE（evenlist numberlist） 結果：（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))))))