练习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)))))
测试嘛，拿题目中的那个例子来试试就好了咯。版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系本人。