Lucas-Lehmer test: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 1,296: | Line 1,296: | ||
{{Out}} |
{{Out}} |
||
<pre> M2 M3 M5 M7 M13 M17 M19 M31</pre> |
<pre> M2 M3 M5 M7 M13 M17 M19 M31</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|BASIC256}} |
|||
<syntaxhighlight> |
|||
write "Mersenne Primes: " |
|||
func lulehm p . |
|||
mp = bitshift 1 p - 1 |
|||
sn = 4 |
|||
for i = 2 to p - 1 |
|||
sn = sn * sn - 2 |
|||
sn = sn - (mp * (sn div mp)) |
|||
. |
|||
return if sn = 0 |
|||
. |
|||
for p = 2 to 23 |
|||
if lulehm p = 1 |
|||
write "M" & p & " " |
|||
. |
|||
. |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
Mersenne Primes: M3 M5 M7 M13 M17 M19 |
|||
</pre> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |