Request for "Decimal Period of 1/X in Base Y" program

[Gerald H]

(02-28-2015 07:30 AM)Gerald H Wrote:  

(02-27-2015 04:01 PM)Joe Horn Wrote:  Thanks, Thomas! Now I gotta turn your program into an exact-integer CAS program.


Here's the URPL program I currently use on the 50g:

Code:

<<
WHILE DUP PICK3 GCD DUP 1 >
REPEAT /
END DROP DUP MODSTO EULER DIVIS DUP2 POWMOD 1 POS GET NIP
>>

BYTES: 11.5 #F350h
Input: Y, X (exact mode, of course)
Output: order of Y (mod X)

& thanks for publishing your programme, it made me question the structure of mine. I've now incorporated removing the common factors at the start instead of the crazy return zero. Lord knows why I did that!

Dear Gerald,

I write to you to encourage you in your endeavours & to correct you.

Your programme is correct & Joe Horn's erroneous.

Try the order of 777 modulo 3600, then raise 777 to that power mod 3600 - is the answer one?

You just have too much respect for that no-good Joe Horn & too little confidence in yourself.

& remember Robert Record's words on Ptolemy.

I know you will come to the right conclusion,

For I am

A Gerald From The Future.