RosettaCodeData/Task/Linear-congruential-generator/PARI-GP/linear-congruential-generator.pari
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
163 B
Text

BSDseed=Mod(1,1<<31);
MSFTseed=Mod(1,1<<31);
BSD()=BSDseed=1103515245*BSDseed+12345;lift(BSDseed);
MSFT()=MSFTseed=214013*MSFTseed+2531011;lift(MSFTseed)%(1<<31);