langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Modular-exponentiation/Perl-6/modular-exponentiation.pl6
+++ b/Task/Modular-exponentiation/Perl-6/modular-exponentiation.pl6
@ -0,0 +1,13 @@
+sub expmod(Int $a is copy, Int $b is copy, $n) {
+    my $c = 1;
+    repeat while $b div= 2 {
+        ($c *= $a) %= $n if $b % 2;
+        ($a *= $a) %= $n;
+    }
+    $c;
+}
+
+say expmod
+    2988348162058574136915891421498819466320163312926952423791023078876139,
+    2351399303373464486466122544523690094744975233415544072992656881240319,
+    10**40;