【SICP练习】55 练习2.23



练习2.23

这道题就有小小的难度了。(define (for-each f lst)

   (cond ((not (null? lst))

          (f (car lst))

          (for-each f (cdr lst)))))

如果用上前面经常用到的begin和if，这里还有另一种for-each实现。

(define (for-each f lst)

   (if (not (null? lst))

      (begin

         (f (car lst))

         (for-each f (cdr lst)))))

测试嘛，拿题目中的那个例子来试试就好了咯。