짝수 목록을 반환하는 체계 작성

Question

주어진 정수 값 목록의 짝수 숫자 목록을 반환하는 Scheme 함수를 작성하십시오. 목록이 단순하지 않을 수 있으며 중첩 목록이 생길 수 있으며 짝수 목록을 찾을 필요가 있습니다 그 안에있는 숫자. (2 4 6 4)

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

이 나 무엇인가

(DEFINE (evenlist의 numberlist) (evenlist numberlist)를 정의 ( 결과를 본체로 이것을 사용이 같은 결과 STH 점점 나는 비난하지 않는다. :

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