tests/vector.stat

   1 title 'Test VECTOR utility'.
   2
   3 data list /c 1(a).
   4 begin data.
   5 5
   6 3
   7 4
   8 1
   9 2
  10 end data.
  11
  12 string x1 to x5 y1 to y5(a1).
  13 vector x=x1 to x5.
  14 *formats all(f1).
  15 compute x(number(c))=c.
  16 leave x1 to x5.
  17 list.
  18
  19 vector x=x1 to x5.
  20 vector y=y1 to y5.
  21 *formats all(f1).
  22 compute y(number(c))=x(number(c)+1).
  23 display vector.
  24 list.