From a9abc1da41b56edbed00081800382e854d6698d0 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Tue, 31 Mar 2015 23:41:55 +0800
Subject: rename to H**, +31 +32 +33 +34 +35 +36

---
 H35.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 H35.hs

(limited to 'H35.hs')

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
-- 
cgit v1.2.3-70-g09d2