contrib/bc/Test/mul.b

   1 scale = 20
   2 for (i=0; i<10000; i++) {
   3   for (j=1; j<100; j++) b=i*j
   4 }
   5 b
   6 for (i=0; i<10000; i++) {
   7   for (j=1000000000000000000000000000000000000000000000000000000000000000000; \
   8        j<1000000000000000000000000000000000000000000000000000000000000000100; \
   9        j++) b=i*j
  10 }
  11 b
  12 quit
  13