【SICP练习】55 练习2.23



练习2.23

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

   (cond ((not (null? lst))

          (f (car lst))

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

如果用上前面经常用到的beginif,这里还有另一种for-each实现。

(define (for-each f lst)

   (if (not (null? lst))

      (begin

         (f (car lst))

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

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

版权声明:本文为 NoMasp柯于旺 原创文章,如需转载请联系本人。

posted @ 2015-02-22 13:50  nomasp  阅读(104)  评论(0编辑  收藏  举报