From 25f3e0a799db41bb13c2646d7f5018f751c7c870 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Thu, 26 Aug 2010 01:05:33 +0530
Subject: [PATCH] solution to 2.45 in Scheme

---
 src/sicp/ex2_45.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/sicp/ex2_45.scm

diff --git a/src/sicp/ex2_45.scm b/src/sicp/ex2_45.scm
new file mode 100644
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
-- 
2.45.2