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

[StephenG1CMZ]

(02-27-2015 08:49 AM)Thomas Ritschel Wrote:  Here is a simple non-CAS variant:

Code:

EXPORT MultiplicativeOrder(a,base)
BEGIN
  LOCAL k:=0;
  LOCAL res:=1;
  REPEAT
    res:=res*base;
    k:=k+1;
    res:=res MOD a;
  UNTIL res==1;
  RETURN(k);
END;

I am using this procedure to analyze repeating decimals/recurring decimals here:
http://www.hpmuseum.org/forum/thread-9986.html