cpp/openttd-patchpack/source Files · src/3rdparty/squirrel/samples/array.nut

Files @ r18833:5ee5152e885f

Branch filter:

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

r18833:5ee5152e885f 433 B text/plain Show Annotation Show as Raw Download as Raw

rubidium

(svn r23692) -Fix: use smallest_x of your children only when you let the children update it

/*
*
* 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]);