Mersenne primes: Difference between revisions

m
No edit summary
Line 563:
 
lucasLehmer :: Int -> Bool
lucasLehmer p = go 4 [1..p - 2] == 0
where
go s = foldr (\a b -> (b ^ 2 - 2) `mod` m) s [1..p - 2]
m = 2 ^ p - 1
 
Line 594:
M 9689
</pre>
 
=={{header|Java}}==
{{trans|Kotlin}}
Anonymous user