【SICP练习】61 练习2.31-2.32

2015/09/08 21:46
阅读数 6


练习2.31

我想说我已经越来越喜欢抽象了,将上一题中的map版本的square-tree抽象的方法是添加一个参数ff是一个函数,因此将square替换成f即可。如下。

(define (map-tree f tree)

   (map (lambda (sub-tree)

            (if (pair? sub-tree)

               (tree-map f sub-tree)

                (f sub-tree)))

           tree))

(define (square-tree tree)

   (tree-map square tree))

下面就来测试一下咯。来个稍微厉害点的表好了。

(square-tree ‘(1 2 (3 4) 5 (6 7) ( (8(9 ) ) ) 10 ) )

;Value: (1 4 (9 16) 25 (36 49) ( (64(81 ) ) ) 100 )


练习2.32

迭代




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

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