From 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db Mon Sep 17 00:00:00 2001
From: Iru Cai <mytbk920423@gmail.com>
Date: Thu, 24 May 2018 21:39:58 +0800
Subject: initial commit

---
 euler114.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 euler114.scm

(limited to 'euler114.scm')

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)
-- 
cgit v1.2.3