langs a-z

Task/Modular-exponentiation/PARI-GP/modular-exponentiation.pari

@@ -0,0 +1,3 @@
+a=2988348162058574136915891421498819466320163312926952423791023078876139;
+b=2351399303373464486466122544523690094744975233415544072992656881240319;
+lift(Mod(a,10^40)^b)

Task/Modular-exponentiation/Pascal/modular-exponentiation.pascal

@@ -0,0 +1,26 @@
+Program ModularExponentiation(output);
+
+uses
+  gmp;
+
+var
+  a, b, m, r: mpz_t;
+  fmt: pchar;
+
+begin
+  mpz_init_set_str(a, '2988348162058574136915891421498819466320163312926952423791023078876139', 10);
+  mpz_init_set_str(b, '2351399303373464486466122544523690094744975233415544072992656881240319', 10);
+  mpz_init(m);
+  mpz_ui_pow_ui(m, 10, 40);
+
+  mpz_init(r);
+  mpz_powm(r, a, b, m);
+
+  fmt := '%Zd' + chr(13) + chr(10);
+  mp_printf(fmt, @r); (* ...16808958343740453059 *)
+
+  mpz_clear(a);
+  mpz_clear(b);
+  mpz_clear(m);
+  mpz_clear(r);
+end.

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;

Task/Modular-exponentiation/TXR/modular-exponentiation.txr

@@ -0,0 +1,3 @@
+@(bind result @(exptmod 2988348162058574136915891421498819466320163312926952423791023078876139
+                        2351399303373464486466122544523690094744975233415544072992656881240319
+                        (expt 10 40)))