练习2.33
既然要用到accumulate，那么我们先来回顾一下这个函数好了。其有三个参数，一个操作符，一个用来作为初始化的值，一个是需要运算的序列。题目中的map已有的定义如下：
(define (map p sequence)
(accumulate (lambda (x y) <??>)
nil
sequence))
这里的nil也是’()，其作为accumulate的参数initial。后面的sequence也就是accumulate的参数sequence。那么lambda表达式里要做的就是处理这些东西了。我们用map的参数来处理初始值，然后将其用cons组合。而很明显的，nil对应于x，seguence对应于y。于是乎。
(define (map p sequence)
(accumulate (lambda (x y)
(cons(p x) y))
nil
sequence))
虽然不太规范，但意思就是这么个意思。
下面的append就比较简单了，往前翻到第68页最下面有其的定义，但不看也知道，就是将两个表组合到一起嘛。而题中已经有了cons，那不就有了么。
(define (append seq1 seq2)
(accumulate cons <??> <??>))
同样在第68页也有length的定义。其实这三个小题的难点以及出题的目的都是在于accumulate。通过不断的将sequence不断的car，并且累计计数加1就可以得出length了。
(define (length sequence)
(accumulate (lambda (x y) (+ 1 y))
0
sequence))
如果有兴趣可以直接再写写append和length的展开式之类的。
版权声明：本文为 NoMasp柯于旺 原创文章，如需转载请联系本人。