2008-12-31 SICP 2.23 SICP Scheme こんなんでどうか? (define (myfor-each proc lis) (map proc lis) #t) (myfor-each print '(1 2 3))