Anonymous user
Multiplicative order: Difference between revisions
→{{header|Perl 6}}: flatten grep and sort array properly
(Added Java) |
(→{{header|Perl 6}}: flatten grep and sort array properly) |
||
Line 948:
=={{header|Perl 6}}==
<lang perl6>my @primes := 2, |grep *.is-prime, (3,5,7...*);
sub factor($a is copy) {
Line 973:
@qs = flat @qs.map(-> $q { (0..$f.value).map(-> $j { $q * $f.key ** $j }) });
}
@qs.sort.first(-> $q { expmod( $a, $q, $m ) == 1});
}
|