(f (car x))を評価する
(odd? (car '(1 2 3 4 5)))
(odd? 1)は#t
(define (remove-if f x)
(cond ((null? x)nil)
((f (car x)) (remove-if f (cdr x)))
(else (cons (car x) (remove-if f (cdr x)))) ))
リストxは空リストではない
(odd? 1)は#t
新しいremove-ifを駆動
新しいremove-if
(remove-if odd? '(2 3 4 5))
引数(リストx)に注意