【SICP练习】62 练习2.33

2015/09/08 21:47
阅读数 0


练习2.33

既然要用到accumulate,那么我们先来回顾一下这个函数好了。其有三个参数,一个操作符,一个用来作为初始化的值,一个是需要运算的序列。题目中的map已有的定义如下:

(define (map p sequence)

   (accumulate (lambda (x y) <??>)

                nil

                sequence))

这里的nil也是’(),其作为accumulate的参数initial。后面的sequence也就是accumulate的参数sequence。那么lambda表达式里要做的就是处理这些东西了。我们用map的参数来处理初始值,然后将其用cons组合。而很明显的,nil对应于xseguence对应于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))

如果有兴趣可以直接再写写appendlength的展开式之类的。

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

展开阅读全文
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部