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

3 lines
85 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
modInv[a_, m_] :=
Block[{x,k}, x /. FindInstance[a x == 1 + k m, {x, k}, Integers]]