Post Reply 
Request for "Decimal Period of 1/X in Base Y" program
03-01-2015, 09:48 AM
Post: #16
RE: Request for "Multiplicative Order of Y (mod X)" program
But this prog is better:

::
CK2&Dispatch
# FFFF
::
FPTR2 ^ZTrialDiv2
DROP
BEGIN
DUP
Z5_
FPTR2 ^ZMod
FPTR2 ^QIsZero?
WHILE
::
Z5_
FPTR2 ^ZQUOText
;
REPEAT
DUPUNROT
FPTR2 ^ZGCDext
FPTR2 ^ZQUOText
FPTR2 ^DupZIsOne?
casedrop
Z0_
Z10_
xORD
;
;
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: Request for "Multiplicative Order of Y (mod X)" program - Gerald H - 03-01-2015 09:48 AM



User(s) browsing this thread: 1 Guest(s)