练习2.45
我们先将right-split和up-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.youkuaiyun.com/nomasp
本文介绍了一种在Scheme语言中抽象绘画组合器的方法,通过定义一个split过程,能够递归地将绘画图案进行分割组合,形成更复杂的图案。具体实现了right-split和up-split功能,并提供了重定义的步骤。
1890

被折叠的 条评论
为什么被折叠?



