contrib/bc/tests/bc/scripts/print.bc

   1 #! /usr/bin/bc -q
   2
   3 for (b = 2; b <= 100; ++b) {
   4
   5         if (b == 10) continue
   6
   7         s = b * b
   8
   9         print "obase = ", b, "\n"
  10         print "\qobase = \q\n"
  11         b
  12
  13         for (i = 0; i <= s; ++i) {
  14                 i
  15                 print "0.", i, "\n"
  16                 print ".", i, "\n"
  17                 print "1.", i, "\n"
  18                 print i, ".", "\n"
  19                 print i, ".", i, "\n"
  20         }
  21
  22         2189432174861923048671023498128347619023487610234689172304.192748960128745108927461089237469018723460
  23 }
  24
  25 halt