From 7ed28452103016100d90dae08582a733a2e198ef Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan@moonside.games>
Date: Mon, 26 Oct 2020 23:24:12 -0700
Subject: [PATCH] more idiomatic haskell 003

---
 haskell/euler003.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haskell/euler003.hs b/haskell/euler003.hs
index 47586a0..d4ff43d 100644
--- 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))