mikamix · December 27, 2013 18:35
diff --git a/euler3.hs b/euler3.hs
 primeFactors n = primeFactors' n 2
  where
    primeFactors' n f
      | f ^ 2 > n      = [n]
      | n `mod` f == 0 = f : primeFactors' (n `div` f) f
      | otherwise      = primeFactors' n (f + 1)

 main = print $ maximum $ primeFactors 600851475143
	primeFactors n = primeFactors' n 2
	where
	primeFactors' n f
	\| f ^ 2 > n = [n]
	\| n `mod` f == 0 = f : primeFactors' (n `div` f) f
	\| otherwise = primeFactors' n (f + 1)

	main = print $ maximum $ primeFactors 600851475143
No results found