start haskell

2011-10-21 14:18:31 -07:00 · 2011-10-21 14:18:31 -07:00 · eb0954b57a
parent 20a89cc870
commit eb0954b57a
1 changed files with 4 additions and 0 deletions
--- a/e3/e3.hs
+++ 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)