home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Geek Gadgets 1
/
ADE-1.bin
/
ade-dist
/
bc-1.03-base.tgz
/
bc-1.03-base.tar
/
fsf
/
bc
/
Test
/
aryprm.b
< prev
next >
Wrap
Text File
|
1994-11-04
|
205b
|
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[]);