From f4223215b180a3a78f845be2d9c240f7ec49b909 Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan@moonside.games>
Date: Wed, 28 Oct 2020 01:30:06 -0700
Subject: [PATCH] move prime funcs to module

---
 haskell/euler003.hs | 6 +-----
 haskell/prime.hs    | 6 ++++++
 2 files changed, 7 insertions(+), 5 deletions(-)
 create mode 100644 haskell/prime.hs

diff --git a/haskell/euler003.hs b/haskell/euler003.hs
index d4ff43d..dbe2c35 100644
--- a/haskell/euler003.hs
+++ b/haskell/euler003.hs
@@ -1,9 +1,5 @@
 module Main where
-
-primes = 2 : [i | i <- [3..],
-              and [rem i p > 0 | p <- takeWhile (\p -> p^2 <= i) primes]]
-
-primeFactors n = filter (\a -> mod n a == 0) (takeWhile (\m -> m * m < n) primes)
+import Prime
 
 main = do
     print (last (primeFactors 600851475143))
diff --git a/haskell/prime.hs b/haskell/prime.hs
new file mode 100644
index 0000000..a81b8ad
--- /dev/null
+++ b/haskell/prime.hs
@@ -0,0 +1,6 @@
+module Prime where
+
+primes = 2 : [i | i <- [3..],
+              and [rem i p > 0 | p <- takeWhile (\p -> p^2 <= i) primes]]
+
+primeFactors n = filter (\a -> mod n a == 0) (takeWhile (\m -> m * m < n) primes)