solution to 2.45 in Scheme

diff --git a/src/sicp/ex2_45.scm b/src/sicp/ex2_45.scm
new file mode 100644 (file)
index 0000000..87a950e
--- /dev/null
+++ b/src/sicp/ex2_45.scm
@@ -0,0 +1,15 @@
+#lang scheme
+
+(require (planet soegaard/sicp:2:1/sicp))
+
+(define (split f1 f2)
+  (lambda (painter n)
+    (if (= n 0)
+        painter
+        (let ((smaller ((split f1 f2) painter (- n 1))))
+          (f1 painter (f2 smaller smaller))))))
+
+(define right-split (split beside below))
+(define up-split (split below beside))
+
+    
\ No newline at end of file