From eb0954b57a95a178acac0d59ec1b1dbf7d26d130 Mon Sep 17 00:00:00 2001
From: Dan Ballard <dan@mindstab.net>
Date: Fri, 21 Oct 2011 14:18:31 -0700
Subject: [PATCH] start haskell

---
 e3/e3.hs | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 e3/e3.hs

diff --git a/e3/e3.hs b/e3/e3.hs
new file mode 100644
index 0000000..52c6be3
--- /dev/null
+++ b/e3/e3.hs
@@ -0,0 +1,4 @@
+factor n divisor
+  | (divisor == n-1 || n == 1) = [n]
+  | rem n divisor == 0 = (factor (fromIntegral n/divisor) 2) ++ (factor divisor 2)
+  | otherwise = factor n (divisor+1)