From 281425310c5db21f87981eeb9601a71d1974d98d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 10 Apr 2014 05:25:03 +1000 Subject: Rearranging files --- misc.hs | 35 ----------------------------------- 1 file changed, 35 deletions(-) delete mode 100644 misc.hs (limited to 'misc.hs') diff --git a/misc.hs b/misc.hs deleted file mode 100644 index f7623e4..0000000 --- a/misc.hs +++ /dev/null @@ -1,35 +0,0 @@ - - - - -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