-- We shall say that an n-digit number is pandigital if it makes use of all the digits 1 to n exactly once. For example, 2143 is a 4-digit pandigital -- and is also prime. -- -- What is the largest n-digit pandigital prime that exists? import ProjectEuler (isPrime, isPandigital) maxPandigitalPrime :: Integer maxPandigitalPrime = head $ filter isPrime (filter isPandigital [7654321,7654319..]) main = do let result = maxPandigitalPrime putStrLn $ "Project Euler, Problem 41\n" ++ "Answer: " ++ show result