15 lines
526 B
Haskell
15 lines
526 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 (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
|