Problem 16 » 履歴 » リビジョン 2
リビジョン 1 (Noppi, 2023/12/31 00:34) → リビジョン 2/3 (Noppi, 2023/12/31 00:54)
[ホーム](https://redmine.noppi.jp) - [[Wiki|Project Euler]]
# [[Problem 16]]
## Power Digit Sum
$2^{15} = 32768$ and the sum of its digits is $3 + 2 + 7 + 6 + 8 = 26$.
What is the sum of the digits of the number $2^{1000}$?
## 各位の数字の和
$2^{15} = 32768$ であり, 各位の数字の和は $3 + 2 + 7 + 6 + 8 = 26$ となる.
同様にして, $2^{1000}$ の各位の数字の和を求めよ.
注: Problem 20 も各位の数字の和に関する問題です。解いていない方は解いてみてください。
```scheme
#!r6rs
#!chezscheme
(import (chezscheme))
(define (each-numbers num)
(let ([number-chars (string->list (number->string num))])
(map
(lambda (char)
(char- char #\0))
number-chars)))
(define answer-16
(apply + (each-numbers (expt 2 1000))))
(printf "16: ~D~%" answer-16)
```