From 281425310c5db21f87981eeb9601a71d1974d98d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 10 Apr 2014 05:25:03 +1000
Subject: Rearranging files

---
 src/misc.hs | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 src/misc.hs

(limited to 'src/misc.hs')

diff --git a/src/misc.hs b/src/misc.hs
new file mode 100644
index 0000000..f7623e4
--- /dev/null
+++ b/src/misc.hs
@@ -0,0 +1,35 @@
+
+
+
+
+modulo :: Int -> Int -> Int
+modulo x y =
+    x - (x `div` y) * y
+
+
+
+primeFactors :: Int -> [Int]
+primeFactors x =
+    let p = (\x e c -> if (x == 1)
+                       then (reverse c)
+                       else if (x `modulo` (head e) == 0)
+                            then p (x `div` (head e)) e ((head e) : c)
+                            else p x (tail e) c)
+    in p x euler []
+
+
+
+euler :: [Int]
+euler =
+    let f = (\list -> (head list) : (f (filter (\x -> x `modulo` (head list) /= 0) list)))
+    in f [2..]
+
+
+
+isPowerOf :: Int -> Int -> Bool
+isPowerOf x y =
+    case (compare x y) of
+        LT -> False
+        EQ -> True
+        GT -> if (x `modulo` y == 0) then isPowerOf (x `div` y) y else False
+
-- 
cgit