Question: Random number generator Source code

i've read one RNG source code from an article and some of the code are not clear to me. The source code is

proc()

local t;

global seed;

      seed:=irem(a*seed,p);

      t:=seed;

      to concats do seed:=irem(a*seed,p) t:=s*t+seed; end do;

end proc();

 

i'm just don't understand the function of "s" and "concats" because i doesn't found the clue in maple. Hope anybody would me on this problem. I'm really appreaciate it. Thank you.

Please Wait...