1#! /usr/bin/bc -lq 2 3print "scale = 20\n" 4print "x = 1234567890 * 10^(-scale)\n" 5print "len = 1 + 2 * scale\n" 6print "scale += 10\n" 7 8scale = 20 9x = 1234567890 * 10^(-scale) 10len = 1 + 2 * scale 11 12scale += 10 13 14for (i = 0; i <= len; ++i) { 15 print "a[", i, "] = x * (10^", i, ")\n" 16} 17 18for (i = 1; i <= 10000; ++i) { 19 for (j = 0; j < len; ++j) { 20 print "v = a[0] / a[", j, "]\n" 21 print "v = a[", i, "] / a[", j, "]\n" 22 print "v = (a[0] * ", i, ") / a[", j, "]\n" 23 print "v = a[0] / (a[", j, "] * ", i, ")\n" 24 print "v = (a[0] * ", i, ") / (a[", j, "] * ", i, ")\n" 25 } 26} 27