From 1d9e341ac388957ea8ec0150d32a5bbd150cae31 Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan@moonside.games>
Date: Mon, 26 Oct 2020 23:19:53 -0700
Subject: [PATCH] haskell 003

---
 haskell/euler003.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 haskell/euler003.hs

diff --git a/haskell/euler003.hs b/haskell/euler003.hs
new file mode 100644
index 0000000..47586a0
--- /dev/null
+++ b/haskell/euler003.hs
@@ -0,0 +1,9 @@
+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)
+
+main = do
+    print (last (primeFactors 600851475143))