2008-04-15 Ex 2.33 SICP ここからは accumulate が定義された環境が前提になる、のか。 (define (map f xs) (accumulate (lambda (x y) (cons (f x) y)) nil xs)) (define (append xs ys) (accumulate cons ys xs)) (define (length xs) (accumulate (lambda (x y) (+ 1 y)) 0 xs) append が面白いな。