diff options
Diffstat (limited to 'haskell/097-large_non_mersenne_prime.hs')
| -rw-r--r-- | haskell/097-large_non_mersenne_prime.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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)) |