diff options
Diffstat (limited to 'haskell/016-power_digit_sum.hs')
| -rw-r--r-- | haskell/016-power_digit_sum.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/haskell/016-power_digit_sum.hs b/haskell/016-power_digit_sum.hs new file mode 100644 index 0000000..355cfee --- /dev/null +++ b/haskell/016-power_digit_sum.hs @@ -0,0 +1,11 @@ +-- Power digit sum +-- +-- 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? + + +import Data.Char + +main = print (sum [ord x - ord '0' | x <- show (2 ^ 1000)]) |