2009-05-15から1日間の記事一覧
http://projecteuler.net/index.php?section=problems&id=3 600851475143の素因数のうち最大のもの main = print $ last $ primeFactors 600851475143 2 primeFactors :: Integer -> Integer -> [Integer] primeFactors x y | x > y = if (x `mod` y == 0) t…