(define (for-each proc items)
(cond ((not (null? items))
(proc (car items))
(for-each proc (cdr items)))))
转载于:https://www.cnblogs.com/science/archive/2007/01/09/616114.html
转载于:https://www.cnblogs.com/science/archive/2007/01/09/616114.html