17 lines
532 B
Haskell
17 lines
532 B
Haskell
-- 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 (isPandigital, isPrime)
|
|
|
|
maxPandigitalPrime :: Integer
|
|
maxPandigitalPrime = head $ filter isPrime (filter isPandigital [7654321, 7654319 ..])
|
|
|
|
main = do
|
|
let result = maxPandigitalPrime
|
|
putStrLn $
|
|
"Project Euler, Problem 41\n"
|
|
++ "Answer: "
|
|
++ show result
|