Problem 48 - 自分で翻訳してみる

簡単な問題からやってこう。

48が簡単そうだけど、翻訳が無いので、自分で翻訳。

次の式は、1^1 + 2^2 + 3^3 + ... + 10^10 = 10405071317 である。
では、1^1 + 2^2 + 3^3 + ... + 1000^1000 の下10桁を求めよ。

ま、翻訳するほどでもないけど。

最後の10桁は余りで出してみた。

(define (problem48 n)
  (modulo (apply + (map (lambda (x) (expt x x)) (iota 1000 1)))
          (expt 10 10)))

(problem48 10) ; 9110846700

あってた。

Wikiに投稿してみた。

人生初翻訳。