Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
17
Task/Modular-inverse/Quackery/modular-inverse.quackery
Normal file
17
Task/Modular-inverse/Quackery/modular-inverse.quackery
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
[ dup 1 != if
|
||||
[ tuck 1 0
|
||||
[ swap temp put
|
||||
temp put
|
||||
over 1 > while
|
||||
tuck /mod swap
|
||||
temp take tuck *
|
||||
temp take swap -
|
||||
again ]
|
||||
2drop
|
||||
temp release
|
||||
temp take
|
||||
dup 0 < if
|
||||
[ over + ] ]
|
||||
nip ] is modinv ( n n --> n )
|
||||
|
||||
42 2017 modinv echo
|
||||
Loading…
Add table
Add a link
Reference in a new issue