diff options
author | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
---|---|---|
committer | Iru Cai <mytbk920423@gmail.com> | 2018-05-24 21:39:58 +0800 |
commit | 1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db (patch) | |
tree | abde0e4da3c7fe138f3874a94d8eb7d0e44c3224 /euler16.scm | |
download | project_euler-1eefd58ca4fdb5d2f51f657bfd70c9a89a4707db.tar.xz |
initial commit
Diffstat (limited to 'euler16.scm')
-rw-r--r-- | euler16.scm | 9 |
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) + |