aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Multiplicative-order/Perl-6/multiplicative-order.pl6
View file

@ -1,4 +1,4 @@
my @primes := 2, grep *.is-prime, (3,5,7...*);
my @primes := 2, |grep *.is-prime, (3,5,7...*);
sub factor($a is copy) {
gather {
@ -23,9 +23,8 @@ sub mo-prime($a, $p, $e) {
for factor($t) -> $f {
@qs = flat @qs.map(-> $q { (0..$f.value).map(-> $j { $q * $f.key ** $j }) });
}
@qs.sort();
@qs.first(-> $q { expmod( $a, $q, $m ) == 1});
@qs.sort.first(-> $q { expmod( $a, $q, $m ) == 1});
}
sub mo($a, $m) {