From 1c76beb0d4ccf57d2db84cf417f37a3a155fb905 Mon Sep 17 00:00:00 2001
From: Iru Cai <mytbk920423@gmail.com>
Date: Sat, 26 May 2018 16:12:24 +0800
Subject: 58, 76, 97, 104

---
 euler76.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 euler76.scm

(limited to 'euler76.scm')

diff --git a/euler76.scm b/euler76.scm
new file mode 100644
index 0000000..2542356
--- /dev/null
+++ b/euler76.scm
@@ -0,0 +1,17 @@
+(define (sum_ways n)
+ (define (sw n min-n)
+  (cond 
+   [(> min-n n) 0]
+   [(> (* min-n 2) n) 1]
+   [else (+ (sw (- n min-n) min-n) (sw n (+ min-n 1)))]
+   )
+ )
+
+ (define (sw-iter sum i)
+  (if (> (* i 2) n) sum
+   (sw-iter (+ sum (sw (- n i) i)) (+ i 1))))
+
+ (sw-iter 0 1))
+
+(display (sum_ways 100))
+(newline)
-- 
cgit v1.2.3