Lucas-Lehmer test: Difference between revisions
Content added Content deleted
Langurmonkey (talk | contribs) |
Langurmonkey (talk | contribs) |
||
Line 2,283: | 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. |
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 = |
<syntaxhighlight lang="langur">val .isPrime = fn(.i) .i == 2 or |
||
.i > 2 and not any fn(.x) .i div .x, pseries 2 .. .i ^/ 2 |
|||
val .isMersennePrime = |
val .isMersennePrime = fn(.p) { |
||
if .p == 2: return true |
if .p == 2: return true |
||
if not .isPrime(.p): return false |
if not .isPrime(.p): return false |
||
Line 2,296: | Line 2,296: | ||
} |
} |
||
writeln join " ", map |
writeln join " ", map fn(.x) $"M\.x;", filter .isMersennePrime, series 2300</syntaxhighlight> |
||
{{out}} |
{{out}} |