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