Last chance! 50% off unlimited learning
Sale ends in
n modulo m.modinv(n, m)m, if n and m are coprime,
else NA.n modulo m is the unique natural
number 0 < n0 < m such that n * n0 = 1 mod m.extGCDmodinv(5, 1001) #=> 801, as 5*801 = 4005 = 1 mod 1001
Modinv <- Vectorize(modinv, "n")
mod((1:10)*Modinv(1:10, 11), 11) #=> 1 1 1 1 1 1 1 1 1 1Run the code above in your browser using DataLab