Feat: Adds Haskell p030

FrankKair · Feb 21, 2020 · b305c52 · b305c52
1 parent 5c5421f
commit b305c52
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/030/p030.hs b/src/030/p030.hs
@@ -0,0 +1,13 @@
+import Data.Digits
+
+digitsFifthPower :: Integer -> Integer
+digitsFifthPower n =
+  sum $ map (\x -> x ^ 5) $ digits 10 n
+
+solve :: Integer
+solve =
+  sum $ filter (\x -> digitsFifthPower x == x) $ takeWhile (< 200000) [1..]
+
+main :: IO ()
+main =
+  print $ solve