Fresh Fish 4/FreshFish_May-June1994.bin/bbs/gnu/bc-1.02-src.lha/src/amiga/bc-1.02/Test/aryprm.b

Text File | 1991-12-17 | 205 b | 17 lines

define p ( x[] ) {
  auto i;
  for (i=0; i<10; i++) x[i];
}

define m ( x[] ) {
  auto i;
  for (i=0; i<10; i++) x[i] *= 2;
}

scale = 20;
for (i=0; i<10; i++) a[i] = sqrt(i);

p(a[]);
m(a[]);
p(a[]);