SICP习题解答2.23

(define (for-each proc items)
  (cond ((not (null? items))
         (proc (car items))
         (for-each proc (cdr items)))))
posted @ 2007-01-09 20:14  浅蓝の天   阅读(165)  评论(0)  编辑  收藏  举报