RosettaCodeData/Task/Subtractive-generator/PARI-GP/subtractive-generator.parigp
2023-07-01 13:44:08 -04: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