From 78fbf8dbcf39aa51cf682a8795d0d0c3be6034c6 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Fri, 16 Aug 2019 21:58:12 +0200
Subject: haskell problem 13 -> 18, 20

---
 haskell/016-power_digit_sum.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 haskell/016-power_digit_sum.hs

(limited to 'haskell/016-power_digit_sum.hs')

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)])
-- 
cgit