RosettaCodeData/Task/Modular-inverse/Mathematica/modular-inverse-1.math

3 lines
85 B
Plaintext

modInv[a_, m_] :=
Block[{x,k}, x /. FindInstance[a x == 1 + k m, {x, k}, Integers]]