Lucas-Lehmer test: Difference between revisions

{{trans|Perl 5}}

 

 

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_mersenne_prime(2) { True }