rename to H**, +31 +32 +33 +34 +35 +36

1 files changed, 21 insertions, 0 deletions

diff --git a/H35.hs b/H35.hs
new file mode 100644
index 0000000..1d96e4e
--- /dev/null
+++ b/H35.hs
@@ -0,0 +1,21 @@
+module H35
+(   primeFactors
+) where
+
+primeSift (x:xs) = (x:) $ primeSift $ filter ((/=0).(`mod` x)) xs
+
+primes = primeSift [2..]
+
+primeFactors x = pF x primes
+    where
+        pF a xxs@(x:xs)
+            | a == 1 = []
+            | a `mod` x == 0 = x:(pF (div a x) xxs)
+            | otherwise = pF a xs
+
+factor :: Integer -> [Integer]
+ 
+factor 1 = []
+factor n =
+    let prime = head $ dropWhile ((/= 0) . mod n) [2 .. n]
+        in (prime :) $ factor $ div n prime