【SICP练习】74 练习2.45

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


练习2.45

我们先将right-splitup-split抽象出一个split来。

(define (split big-combinersmall-combiner)

   (lambda (painter n)

       (if (= n 0)

          painter

          (let ((smaller ((split big-combinersmall-combiner) painter (- n 1))))

             (big-combiner painter (small-combinersmaller smaller))))))

重新将up-split两个函数写入Edwin并编译一下即可实现重定义。

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

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