A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Modular-exponentiation/Bracmat/modular-exponentiation.bracmat
+++ b/Task/Modular-exponentiation/Bracmat/modular-exponentiation.bracmat
@ -0,0 +1,28 @@
+  ( ( mod-power
+    =   base exponent modulus result
+      .   !arg:(?base,?exponent,?modulus)
+        & !exponent:~<0
+        & 1:?result
+        &   whl
+          ' ( !exponent:>0
+            &     ( (   mod$(!exponent.2):1
+                      & mod$(!result*!base.!modulus):?result
+                      & -1
+                    | 0
+                    )
+                  + !exponent
+                  )
+                * 1/2
+              : ?exponent
+            & mod$(!base^2.!modulus):?base
+            )
+        & !result
+    )
+  & ( a
+    = 2988348162058574136915891421498819466320163312926952423791023078876139
+    )
+  & ( b
+    = 2351399303373464486466122544523690094744975233415544072992656881240319
+    )
+  & out$("last 40 digits = " mod-power$(!a,!b,10^40))
+  )