contrib/bc/tests/bc/scripts/divide.bc

   1 #! /usr/bin/bc -lq
   2
   3 scale = 20
   4 x = 1234567890 * 10^(-scale)
   5 len = 1 + 2 * scale
   6
   7 x
   8 scale += 10
   9
  10 for (i = 0; i <= len; ++i) {
  11         a[i] = x * (10^i)
  12         a[i]
  13 }
  14
  15 for (i = 1; i <= 10000; ++i) {
  16         for (j = 0; j < len; ++j) {
  17                 a[0] / a[j]
  18                 a[i] / a[j]
  19                 (a[0] * i) / a[j]
  20                 a[0] / (a[j] * i)
  21                 (a[0] * i) / (a[j] * i)
  22         }
  23 }