From abf4dbd8c27ff8f7a370fdd7f4c73924660dff3d Mon Sep 17 00:00:00 2001 From: Charles Date: Tue, 3 Sep 2019 13:00:45 +0200 Subject: c problem 96 (haskell try) --- haskell/097-large_non_mersenne_prime.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'haskell/097-large_non_mersenne_prime.hs') diff --git a/haskell/097-large_non_mersenne_prime.hs b/haskell/097-large_non_mersenne_prime.hs index a2f3f91..a8e57b2 100644 --- a/haskell/097-large_non_mersenne_prime.hs +++ b/haskell/097-large_non_mersenne_prime.hs @@ -13,7 +13,4 @@ -- this must be a nightmare in C -main = putStrLn $ lastN 10 (show (28433 * 2 ^ 7830457 + 1)) - -lastN :: Int -> [a] -> [a] -lastN n xs = drop (length xs - n) xs +main = putStrLn (show ((28433 * 2 ^ 7830457 + 1) `mod` 10 ^ 10)) -- cgit