Request for "Decimal Period of 1/X in Base Y" program
|
02-27-2015, 09:57 AM
(This post was last modified: 02-27-2015 10:21 AM by Gerald H.)
Post: #4
|
|||
|
|||
RE: Request for "Multiplicative Order of Y (mod X)" program
IF you're only interested in integer values for X & Y, this 50G prog does the job:
Input: 2: Modulus 1: Number whose orderis to be calculated Returns the order you requested. :: CK2&Dispatch # FFFF :: 2DUP FPTR2 ^ZGCDext FPTR2 ^ZIsOne? NOTcase2drop Z0_ OVER FPTR2 ^QMod DUPUNROT OVER FPTR2 ^EULER FPTR2 ^ZFACTO ROTDROP DUPLENCOMP #2/ ZERO_DO DUPUNROT INDEX@ #2* #1+DUP #1+ SUBCOMP INCOMPDROP OVERUNROT COERCE FPTR2 ^PPow# ROTSWAP FPTR2 ^ZQUOText 4ROLLOVER 6PICK FPTR2 ^ModPow 5PICK FPTR2 ^QMod BEGIN FPTR2 ^DupZIsOne? NOT_WHILE :: 3PICK 6PICK FPTR2 ^ModPow 5PICK FPTR2 ^QMod SWAP3PICK FPTR2 ^QMul SWAP ; REPEAT DROPSWAPDROP 4PICKSWAP ROT LOOP DROP 4UNROLL3DROP ; ; I'm sure you Prime buffs won't have much trouble translating that into Prime. |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 2 Guest(s)