16 lines
504 B
Haskell
16 lines
504 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
|