contrib/bc/tests/bc/scripts/multiply.bc

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