[Haskell][30] Adding Solution

haskell/src/0030.hs

@@ -0,0 +1,17 @@
+
+import Utils
+
+import Data.List
+import Data.Char
+
+solution :: Int
+solution = iterate (+1) 2
+             |> filter (\x -> addResult (\y -> show y |> map digitToInt
+                                                      |> map (^5)
+                                                      |> sum) x
+                                |> (uncurry (==)))
+             |> take 6
+             |> sum
+
+main :: IO ()
+main = putStrLn ("Solution: " ++ show solution)