gnu/usr.bin/bc/Test/aryprm.b


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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[]);