【SICP练习】74 练习2.45



练习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柯于旺 原创文章，如需转载请联系本人。