SICP 习题 2.23 要求我们实现一个for-each过程。

for-each过程和map过程其实很像，只不过for-each过程不返回值，如果返回一个值的话也是不包含意义的值。

map比较像一个加工厂，进去一堆东西，加工一下，出来另一堆东西。

for-each更像一个蒸汽机，进去一堆煤，燃烧一下，产生能量干点活，不出来东西，真的一定要说有东西出来也是煤渣，大家不在乎的东西。

所以for-each更关注的是里面执行的操作。

其实for-each操作在我们日常使用的语言中都会有，如c语言里的for，php里的foreach，都是在完成类似的工作。

另外要注意的是Scheme里有for-each过程，系统自带的，SICP的作者要求你实现for-each过程并不是因为Scheme里没有，而是要让你从最基本的层面上理解for-each和map的差别。

最终实现比较简单，其实也是遍历输入的列表，针对每一个元素执行一个操作。

因为在if判断语句中同时要处理动作和递归调用两件事情，所以这里使用了begin过程将多个操作组合在一起顺序执行。

代码如下：

(define (my-for-each action items)
   (if (null? items)
      ‘()
      (begin
	(action (car items))
	(cons (car items) 
	    (my-for-each action (cdr items))))))

SICP 习题 （2.23）解题总结：for-each的实现