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

---
 euler16.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 euler16.scm

(limited to 'euler16.scm')

diff --git a/euler16.scm b/euler16.scm
new file mode 100644
index 0000000..0260783
--- /dev/null
+++ b/euler16.scm
@@ -0,0 +1,9 @@
+(define (sum-digits n)
+ (if (= n 0)
+  0
+  (+ (remainder n 10)
+   (sum-digits (floor (/ n 10))))))
+
+(display (sum-digits (expt 2 1000)))
+(newline)
+
-- 
cgit v1.2.3