Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Modular-inverse/Bracmat/modular-inverse.bracmat
+++ b/Task/Modular-inverse/Bracmat/modular-inverse.bracmat
@ -0,0 +1,16 @@
+( ( mod-inv
+  =   a b b0 x0 x1 q
+    .   !arg:(?a.?b)
+      & ( !b:1
+        |   (!b.0.1):(?b0.?x0.?x1)
+          &   whl
+            ' ( !a:>1
+              & div$(!a.!b):?q
+              & (!b.mod$(!a.!b)):(?a.?b)
+              & (!x1+-1*!q*!x0.!x0):(?x0.?x1)
+              )
+          & (!x:>0|!x1+!b0)
+        )
+  )
+& out$(mod-inv$(42.2017))
+};