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