| #! /usr/bin/bc -lq |
| |
| print "scale = 20\n" |
| print "x = 1234567890 / scale\n" |
| print "len = length(x) + 1 + scale\n" |
| |
| scale = 20 |
| x = 1234567890 / scale |
| len = length(x) + 1 + scale |
| |
| for (i = 0; i <= len; ++i) { |
| print "a[", i, "] = x * (10^", i, ")\n" |
| } |
| |
| for (i = 1; i <= 10000; ++i) { |
| for (j = 0; j < len; ++j) { |
| print "v = a[0] * a[", j, "]\n" |
| print "v = a[", i, "] * a[", j, "]\n" |
| print "v = (a[0] * ", i, ") * a[", j, "]\n" |
| print "v = a[0] * (a[", j, "] * ", i, ")\n" |
| print "v = (a[0] * ", i, ") * (a[", j, "] * ", i, ")\n" |
| } |
| } |