3問目
600851475143の素因数分解。
http://projecteuler.net/index.php?section=problems&id=3
淡々と。
main = print $ euler003 600851475143 2 euler003 :: Integer -> Integer -> Integer euler003 a p | (a == 1) = p | (mod a p == 0) = euler003 (div a p) p | otherwise = euler003 a (p + 1)