1 files changed, 9 insertions, 0 deletions
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)
+