偶数のリストを返すスキームを書く

Question

与えられた整数のリストの偶数のリストを返すScheme関数を書く。リストは単純ではなく、ネストされたリストが出現し、偶数を見つける必要があるその中の数字。これは何である（2 4 6 4）

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

：体としてこれを使用してこの （）（evenlist numberlistを定義 結果と同様の結果STHを取得

（（evenlist numberlist定義） 私はあなたのせいにしていません:(

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))))))