src/sicp/ex2_45.scm

   1 #lang scheme
   2
   3 (require (planet soegaard/sicp:2:1/sicp))
   4
   5 (define (split f1 f2)
   6   (lambda (painter n)
   7     (if (= n 0)
   8         painter
   9         (let ((smaller ((split f1 f2) painter (- n 1))))
  10           (f1 painter (f2 smaller smaller))))))
  11
  12 (define right-split (split beside below))
  13 (define up-split (split below beside))
  14
  15