最初のページ 戻る 次へ 最後のページ

実行例

(remove-if odd? '(0 1 2 3 4 5))

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

(odd? 0)は#f

リストxは空リストではない

(f (car x))を評価する

(odd? (car '(0 1 2 3 4 5)))

(odd? 0)は#f