2008-03-14から1日間の記事一覧
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) …