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/Arturo/modular-inverse.arturo
+++ b/Task/Modular-inverse/Arturo/modular-inverse.arturo
@ -0,0 +1,17 @@
+modInverse: function [a,b][
+    if b = 1 -> return 1
+
+    b0: b   x0: 0   x1: 1
+    z: a
+
+    while [z > 1][
+        q: z / b        t: b
+        b: z % b        z: t
+        t: x0           x0: x1 - q * x0
+        x1: t
+    ]
+    (x1 < 0) ? -> x1 + b0
+               -> x1
+]
+
+print modInverse 42 2017