fixup

1 files changed, 10 insertions, 0 deletions

diff --git a/coding-exercises/2/45.rkt b/coding-exercises/2/45.rkt
new file mode 100644
index 0000000..1939675
--- /dev/null
+++ b/coding-exercises/2/45.rkt
@@ -0,0 +1,10 @@
+#lang racket
+(require sicp-pict)
+
+(define (split adjoiner splitter)
+  (lambda (painter)
+    (let ((splitted (splitter painter painter)))
+      (adjoiner painter splitted))))
+
+(define right-split (split beside below))
+(define up-split (split below beside))