diff options
| author | Charles <sircharlesaze@gmail.com> | 2019-09-03 13:00:45 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2019-09-03 13:00:45 +0200 |
| commit | abf4dbd8c27ff8f7a370fdd7f4c73924660dff3d (patch) | |
| tree | 0a2cc5784aae01154881fa4fa89eda2384f3ab6f /haskell/097-large_non_mersenne_prime.hs | |
| parent | 55b4fc0d8b97e9fd2e922df2e6408bce40f9f93e (diff) | |
| download | project_euler-abf4dbd8c27ff8f7a370fdd7f4c73924660dff3d.tar.gz project_euler-abf4dbd8c27ff8f7a370fdd7f4c73924660dff3d.tar.bz2 project_euler-abf4dbd8c27ff8f7a370fdd7f4c73924660dff3d.zip | |
c problem 96 (haskell try)
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)) |