squirrel/samples/array.nut
Markus F.X.J. Oberhumer 0378c7016f Normalize whitespace.
Convert files to Unix EOL mode, de-tabify and strip trailing whitespace.
2016-02-15 20:51:20 +01:00

30 lines
439 B
Plaintext

/*
*
* Original Javascript version by David Hedbor(http://www.bagley.org/~doug/shootout/)
*
*/
local n, i, k;
if(vargv.len()!=0) {
n = vargv[0].tointeger();
if(n < 1) n = 1;
} else {
n = 1;
}
local x = []; x.resize(n);
local y = []; y.resize(n);
for (i = 0; i < n; i+=1) {
x[i] = i + 1;
y[i] = 0;
}
for (k = 0 ; k < n; k+=1) {
for (i = n-1; i >= 0; i-=1) {
y[i] = y[i]+ x[i];
}
}
print(y[0].tostring()+" "+y[n-1]);