練習問題 P.56 filter

(define (filter pred lis)
  (cond ((null? lis) '())
        ((pred (car lis)) (cons (car lis) (filter pred (cdr lis))))
        (else (filter pred (cdr lis)))))

感覚がつかめてきた