18 lines
492 B
Haskell
18 lines
492 B
Haskell
-- The prime factors of 13195 are 5, 7, 13 and 29. --
|
|
-- What is the largest prime factor of the number 600851475143?
|
|
|
|
import ProjectEuler (isPrime)
|
|
|
|
maxPrimeFactor :: Int -> Int
|
|
maxPrimeFactor n
|
|
| isPrime n = n
|
|
| even n = maxPrimeFactor $ n `div` 2
|
|
| otherwise = maxPrimeFactor $ n `div` head [i | i <- [3, 5 ..], n `mod` i == 0 && isPrime i]
|
|
|
|
main = do
|
|
let result = maxPrimeFactor 600851475143
|
|
putStrLn $
|
|
"Project Euler, Problem 3\n"
|
|
++ "Answer: "
|
|
++ show result
|