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