RosettaCodeData/Task/Modular-inverse/Dc/modular-inverse.dc

2 lines
94 B
Plaintext

dc -e "[m=]P?dsm[a=]P?dsa1sv[dsb~rsqlbrldlqlv*-lvsdsvd0<x]dsxxldd[dlmr+]sx0>xdla*lm%[p]sx1=x"