【SICP练习】62 练习2.33
练习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柯于旺 原创文章,如需转载请联系本人。