From 317ee36636ebeec986971ef857cd297f0320e58d Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 27 May 2013 10:31:48 +0200
Subject: start

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

(limited to 'haskell/p3.hs')

diff --git a/haskell/p3.hs b/haskell/p3.hs
new file mode 100644
index 0000000..f50c2de
--- /dev/null
+++ b/haskell/p3.hs
@@ -0,0 +1,9 @@
+p3 :: Integer
+p3 = maximum $ factors 600851475143 []
+	where
+		factors :: Integer -> [Integer] -> [Integer]
+		factors 1 l = l
+		factors n l = factors (div n divisor) (divisor:l)
+			where divisor = head $ filter (\x -> mod n x == 0) [2..]
+
+main = putStrLn $ "Solution: " ++ show p3
-- 
cgit v1.2.3