https://www.colorless-sight.jp:443/wiki/?ProjectEular%2FProblem16
[[ProjectEular]] -- Problem 16 module Main (main) where import qualified Char (digitToInt) main :: IO () main = print $ problem16 problem16 :: Int problem16 = sum $ map Char.digitToInt $ show $ 2 ^ 1000