Post Reply 
Request for "Decimal Period of 1/X in Base Y" program
03-01-2015, 09:04 AM (This post was last modified: 03-01-2015 09:17 AM by Gerald H.)
Post: #15
RE: Request for "Multiplicative Order of Y (mod X)" program
& here the prog to do it:

::
CK2&Dispatch
# FFFF
::
FPTR2 ^ZTrialDiv2
DROP
BEGIN
DUP
Z5_
FPTR2 ^ZMod
FPTR2 ^QIsZero?
WHILE
::
Z5_
FPTR2 ^ZQUOText
;
REPEAT
FPTR2 ^DupZIsOne?
case2drop
Z0_
DUPUNROT
FPTR2 ^ZGCDext
FPTR2 ^ZQUOText
Z10_
xORD (name for my prog above)
;
;

Again, I leave Prime translation to the experts.
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:04 AM



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