RosettaCodeData/Task/Multiplicative-order/J/multiplicative-order-1.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
74 B
Text

mo=: 4 : 0
a=. x: x
m=. x: y
assert. 1=a+.m
*./ a mopk"1 |: __ q: m
)