16 lines
289 B
Haskell
16 lines
289 B
Haskell
{-
|
|
https://projecteuler.net/problem=16
|
|
|
|
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?
|
|
-}
|
|
|
|
module Main where
|
|
|
|
main :: IO ()
|
|
main = print ans
|
|
|
|
ans :: Integer
|
|
ans = sum $ map (\c -> read [c] :: Integer) $ show (2^1000)
|