aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Multiplicative-order/J/multiplicative-order-1.j Normal file
View file

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

10
Task/Multiplicative-order/J/multiplicative-order-2.j Normal file
View file

@ -0,0 +1,10 @@
mopk=: 4 : 0
a=. x: x
'p k'=. x: y
pm=. (p^k)&|@^
t=. (p-1)*p^k-1 NB. totient
'q e'=. __ q: t
x=. a pm t%q^e
d=. (1<x)+x (pm i. 1:)&> (e-1) */\@$&.> q
*/q^d
)

4
Task/Multiplicative-order/J/multiplicative-order-3.j Normal file
View file

@ -0,0 +1,4 @@
37 mo 1000
100
2 mo _1+10^80x
190174169488577769580266953193403101748804183400400