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. |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 5 Guest(s)