2008-04-14 Ex 2.21 SICP あ、これは簡単... (define (square-list items) (if (null? items) '() (cons (square (car items)) (square-list (cdr items))))) そして (define (square-list items) (map square items)) だ。