1 files changed, 14 insertions, 0 deletions
diff --git a/euler114.scm b/euler114.scm
new file mode 100644
index 0000000..e23b441
--- /dev/null
+++ b/euler114.scm
@@ -0,0 +1,14 @@
+(define (comb m n)
+  (define (citer mm nn prod)
+    (if (> mm m) prod
+        (citer (+ mm 1) (- nn 1) (/ (* prod nn) mm))))
+  (citer 1 n 1))
+
+(define (solve nn)
+  (define (addto m n)
+    (if (> m n) 0
+        (+ (comb m n) (addto (+ m 2) (- n 2)))))
+  (+ 1 (addto 2 (- nn 1))))
+
+(display (solve 50))
+(newline)