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

(reduce f x v)

(define (reduce f x v)

  (cond ((null? x) v)

  (else (f (car x) (reduce f (cdr x) v))))

それ以外のとき新しいreduceを駆動する

リストxが空リストのとき値vを返す

関数f:リストの要素に適用する関数

リストx

値v:リストxの各要素に作用させる値

(reduce + '(1 2 3 4 5) 0)

(reduce '(1 2 3 4 5) 1)

(reduce append (map list x y) nil)