Anonymous user
Miller–Rabin primality test: Difference between revisions
m
add a comment that junctive-ors are to expensive today
m (add a comment that junctive-ors are to expensive today) |
|||
Line 1,055:
for (2 ..^ $n).pick($k) -> $a {
my $x = modexp($a, $d, $n);
# one could just write "next if $x == 1 | $n - 1"
# but this takes much more time in current rakudo/nom
next if $x == 1 or $x == $n - 1;
| |||