RosettaCodeData/Task/Modular-inverse/Mathematica/modular-inverse-1.math
2015-02-20 00:35:01 -05:00

2 lines
85 B
Text

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