[Haskell][29] Adding Solution

haskell/src/0029.hs

@@ -0,0 +1,10 @@
+
+import Utils
+
+import Data.List
+
+solution :: Int
+solution = combinations2 [2..100] [2..100] |> map (uncurry (^)) |> sort |> nub |> length
+
+main :: IO ()
+main = putStrLn ("Solution: " ++ show solution)