RosettaCodeData/Task/Subtractive-generator/PARI-GP/subtractive-generator.pari
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

2 lines
95 B
Text

sgv=vector(55,i,random(10^9));sgi=1;
sg()=sgv[sgi=sgi%55+1]=(sgv[sgi]-sgv[(sgi+30)%55+1])%10^9