contrib/bc/tests/bc/scripts/parse.bc

   1 #! /usr/bin/bc -q
   2
   3 for (b = 2; b <= 16; ++b) {
   4         if (b == 10) continue
   5         obase = 10
   6         print "ibase = A; ibase = ", b, "\n"
   7         print "\qibase = \q\n"
   8         b
   9         obase = b
  10         for (i = 0; i <= 4096; ++i) {
  11                 i
  12                 print "0.", i, "\n"
  13                 print ".", i, "\n"
  14                 print "1.", i, "\n"
  15                 print i, ".", "\n"
  16                 print i, ".", i, "\n"
  17         }
  18 }
  19
  20 halt