Files @ r18813:8976a41fdaa2
Branch filter:

Location: cpp/openttd-patchpack/source/src/3rdparty/squirrel/samples/array.nut

rubidium
(svn r23672) -Fix: WT3 validation failure
/*
*
* Original Javascript version by David Hedbor(http://www.bagley.org/~doug/shootout/)
*
*/
local n, i, k;

if(ARGS.len()!=0) {
   n = ARGS[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]);