Rosetta Code

Lucas-Lehmer test: Difference between revisions

← Older editNewer edit →
Content deleted Content added
m →‎{{header|REXX}}: changed style of '''output'''. -- ~~~~
Line 841:
 
=={{header|Perl 6}}==
<lang perl6>multi is_prime(Int $p where ($p <= 1)2) { FalseTrue }▼
{{trans|Perl 5}}
 
{{works with|Rakudo Star|2010.09}}
 
Precision limited to 18 because rakudo does not yet implement arbitrary precision Int as specced.
▲<lang perl6>multi is_prime(Int $p where ($p <= 1)) { False }
multi is_prime(Int $p) { $p %% none(2,3,5,7...^ * > sqrt($p)) }
 
Line 857 ⟶ 852:
}
 
say "M$_" if is_prime($p_) &&and is_mersenne_prime($p_) {for 2..*;</lang>▼
my $precision = 18; # maximum requested number of decimal places of 2 ** MP-1
{{out}}
my $long_bits_width = $precision / log(2) * log(10);
<pre>M2
my $max_prime = floor(($long_bits_width - 1)/2);
M3
my $max_count = 45;
M5
 
M7
say " Finding Mersenne primes in M[2..$max_prime]:";
M13
 
M17
my $count = 0;
M19
for 2 .. $max_prime -> $p {
M31
▲ if is_prime($p) && is_mersenne_prime($p) {
M61
say "M$p";
M89
last if ++$count >= $max_count;
M107
}
M127
}</lang>
M521
M607
M1279
^C
</pre>
 
=={{header|PicoLisp}}==
Retrieved from "https://rosettacode.org/wiki/Lucas-Lehmer_test"