1: define p ( x[] ) {
2: auto i;
3: for (i=0; i<10; i++) x[i];
4: }
5:
6: define m ( x[] ) {
7: auto i;
8: for (i=0; i<10; i++) x[i] *= 2;
9: }
10:
11: scale = 20;
12: for (i=0; i<10; i++) a[i] = sqrt(i);
13:
14: p(a[]);
15: m(a[]);
16: p(a[]);
5761277 [rkeene@sledge /home/rkeene/devel/old/bc-dos/Test]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 1995-03-30 07:29:40