morris555's diary

高校生のブログです。

Problem 16

ploblem 16は、「2^1000」の全ての桁の総和を求める問題です

import Data.Char (digitToInt)

main = print . sum . map digitToInt . show $ 2 ^ 1000

こんな感じ。

簡単すぎてちょっと面白くなかった。