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

xが空リストでないとき

( map square '(1 2 3) )

(cons (square (car '(1 2 3)) (map square (cdr '(1 2 3))) )

(cons (square 1) (map square '(2 3)) )

xが空リストでない

新しいmapを駆動(map2回目)

(define (map f x)

(cond ((null? x) nil)

(else (cons (f (car x)) (map f (cdr x)))) ))

(map f x)