more idiomatic haskell 003

2020-10-26 23:24:12 -07:00 · 2020-10-26 23:24:12 -07:00 · 7ed2845210
parent 9763b56dce
commit 7ed2845210
1 changed files with 1 additions and 1 deletions
--- a/haskell/euler003.hs
+++ b/haskell/euler003.hs
@ -3,7 +3,7 @@ module Main where
 primes = 2 : [i | i <- [3..],
              and [rem i p > 0 | p <- takeWhile (\p -> p^2 <= i) primes]]

-primeFactors n = filter (\a -> n `mod` a == 0) (takeWhile (\m -> m * m < n) primes)
+primeFactors n = filter (\a -> mod n a == 0) (takeWhile (\m -> m * m < n) primes)

 main = do
    print (last (primeFactors 600851475143))