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

---
 euler20.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 euler20.scm

(limited to 'euler20.scm')

diff --git a/euler20.scm b/euler20.scm
new file mode 100644
index 0000000..df06c9d
--- /dev/null
+++ b/euler20.scm
@@ -0,0 +1,16 @@
+(define (sum-digits n)
+ (if (= n 0)
+  0
+  (+ (remainder n 10)
+   (sum-digits (floor (/ n 10))))))
+
+(define (! n)
+ (define (p-iter i p)
+  (if (> i n)
+   p
+   (p-iter (+ i 1) (* p i))))
+ (p-iter 1 1))
+
+(display (sum-digits (! 100)))
+(newline)
+
-- 
cgit v1.2.3