Lucas-Lehmer test: Difference between revisions

Content added Content deleted
Line 2,283:
It is theoretically possible to test to the 47th Mersenne prime, as stated in the task description, but it could take a while. As for the limit, it would be very high.
 
<syntaxhighlight lang="langur">val .isPrime = ffn(.i) .i == 2 or
.i > 2 and not any ffn(.x) .i div .x, pseries 2 .. .i ^/ 2
 
val .isMersennePrime = ffn(.p) {
if .p == 2: return true
if not .isPrime(.p): return false
Line 2,296:
}
 
writeln join " ", map ffn(.x) $"M\.x;", filter .isMersennePrime, series 2300</syntaxhighlight>
 
{{out}}
Retrieved from "https://rosettacode.org/wiki/Lucas-Lehmer_test"