ホーム - 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 も各位の数字の和に関する問題です。解いていない方は解いてみてください。

#!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)