Solve #32 in Haskell.

zacharydenton · May 18, 2014 · cd162de · cd162de
1 parent 4fcb599
commit cd162de
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/032/pandigital.hs b/032/pandigital.hs
@@ -0,0 +1,10 @@
+import Data.List (nub, sort)
+
+candidates :: [(String, Integer)]
+candidates = [(concatMap show [a, b, a*b], a*b) | a <- [1..2000], b <- [1..50]]
+
+pandigital :: String -> Bool
+pandigital = (== "123456789") . sort
+
+main :: IO ()
+main = print $ sum $ nub [p | (digits, p) <- candidates, pandigital digits]