folder

1 files changed, 12 insertions, 0 deletions

diff --git a/coding-exercises/1/chapter117.rkt b/coding-exercises/1/chapter117.rkt
new file mode 100644
index 0000000..4a78d54
--- /dev/null
+++ b/coding-exercises/1/chapter117.rkt
@@ -0,0 +1,12 @@
+(define (halve a) (/ a 2))
+(define (double a) (* a 2))
+
+(define (miter s a b)
+  (cond ((= b 0) s)
+        ((even? b) (miter s (double a) (halve b)))
+        (else (miter (+ s a) (double a) (halve (- b 1))))))
+
+(define (m a b)
+  (miter 0 a b))
+
+(m 3 5)