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

[Thomas Ritschel]

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;