Project Euler

[ホーム](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)

```