13 lines
293 B
Haskell
13 lines
293 B
Haskell
-- 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?
|
|
|
|
import ProjectEuler (digitSum)
|
|
|
|
main = do
|
|
let result = digitSum $ 2 ^ 1000
|
|
putStrLn $
|
|
"Project Euler, Problem 16\n"
|
|
++ "Answer: "
|
|
++ show result
|