1#! /usr/bin/bc -q 2 3for (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 25halt 26