contrib/bc/tests/bc/scripts/array.bc

   1 #! /usr/bin/bc -q
   2
   3 define z(a[]) {
   4         for (i = 0; i < l; ++i) {
   5                 a[i]
   6         }
   7 }
   8
   9 define x(a[]) {
  10
  11         # Test for separate vars and arrays.
  12         auto a
  13
  14         for (a = 0; a < l; ++a) {
  15                 a[a] = -a
  16         }
  17
  18         z(a[])
  19 }
  20
  21 define g(x[], y[]) {
  22         return x[0] - y[0]
  23 }
  24
  25 define h(y[], x[]) {
  26         return g(x[], y[])
  27 }
  28
  29 define m(*x[], *y[]) {
  30         return x[0] / y[0]
  31 }
  32
  33 define n(*y[], *x[]) {
  34         return m(x[], y[])
  35 }
  36
  37 for (i = 0; i < 101; ++i) {
  38         a[i] = i
  39 }
  40
  41 a[104] = 204
  42
  43 l = length(a[])
  44
  45 for (i = 0; i <= l; ++i) {
  46         a[i]
  47 }
  48
  49 z(a[])
  50 x(a[])
  51 z(a[])
  52 l
  53
  54 x[0] = 5
  55 y[0] = 4
  56
  57 h(x[], y[])
  58 n(x[], y[])
  59
  60 halt