← Back to branch summary

~ubuntu-branches/debian/squeeze/bc/squeeze

« back to all changes in this revision

Viewing changes to Test/aryprm.b

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2002-04-13 11:33:49 UTC
  • Revision ID: james.westby@ubuntu.com-20020413113349-hl2r1t730b91ov68
Tags: upstream-1.06
Import upstream version 1.06

Show diffs side-by-side

added added

removed removed

Lines of Context:
Test/aryprm.b
 
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[]);