From bf1adf6b06715cf613bf547809b5c3cbde126454 Mon Sep 17 00:00:00 2001 From: Dan Ballard Date: Sat, 22 Oct 2011 09:44:33 -0700 Subject: [PATCH] finished haskell --- e3/e3.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/e3/e3.hs b/e3/e3.hs index 52c6be3..80818e7 100644 --- a/e3/e3.hs +++ b/e3/e3.hs @@ -1,4 +1,11 @@ factor n divisor - | (divisor == n-1 || n == 1) = [n] - | rem n divisor == 0 = (factor (fromIntegral n/divisor) 2) ++ (factor divisor 2) + | (divisor >= n-1 || n == 1) = [n] + | rem n divisor == 0 = (factor (n `div` divisor) 2) ++ (factor divisor 2) | otherwise = factor n (divisor+1) + +mymax [] acc = acc +mymax (x:xs) acc + | x > acc = mymax xs x + | otherwise = mymax xs acc + +e3 = mymax (factor 600851475143 2) 0