【SICP练习】38 练习1.43

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


练习1.43

我不想一开始就将结果贴出啦,而是通过叙述自己的思考来完成这篇博客。上一题中我在纸上写下传入2个过程并返回1个过程,事实证明挺有效的,于是这次我也依旧这么做了。

repeated需要传入一个过程和一个数字,这个数字决定了这个过程的执行次数。repeated还要返回1个过程,而这个过程又要传入一个数字,这个数字又将通过前面传入的过程来运算。确实挺绕的。

一开始对于决定这个过程的执行次数这一部分,我想参照练习1.41,还define了一个过程。但不知道怎么把这个过程写入repeated中。于是我将这个过程按如下格式写入repeated中了,编译器报错说这种形式非法。

(define repeated

(define r

        (lambda (x)

            ......

(lambda ......

而后我不再企图单独列出这个要让过程执行多次的部分,而是先暂时将问题简单化。即便是只能做一个唯一的普通的运算也好。

(define repeated

    (lambda (f a)

        (lambda (b)

            (if (= a 2)

               (f (f b))

               (f b)))))

测试一下。

((repeated square 2) 5)

;Value: 625

接下来就该来个递归了是不是。

在这里我还试过一次在define的过程里又define了一个过程,再次报错。终于博主决定将他们分开写了。

(define repeated-iter

    (lambda (f a)

        (lambda (b)

             (if (= a 1)

                (f b)

                ((repeated-iter f (- a 1)) (fb))))))

(define repeated

        (lambda (f a)

            (lambda (b)

                ((repeated-iter f a) b))))

接下来我们来测试一下,这回事真正的测试了。

((repeated square 5) 5)

;Value: 23283064365386962890625

这里我只是挑了一个比较大的数来展示,其为(square(square (square (square (square 5)))))

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

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