]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex2_45.scm
rewrite `quote->cons' using `match'.
[sicp.git] / 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