| Current Path : /usr/tests/usr.bin/gh-bc/tests/bc/scripts/ |
| Current File : //usr/tests/usr.bin/gh-bc/tests/bc/scripts/multiply.bc |
#! /usr/bin/bc -lq
scale = 20
x = 1234567890 / scale
len = length(x) + 1 + scale
for (i = 0; i <= len; ++i) {
a[i] = x * (10^i)
a[i]
}
for (i = 1; i <= 10000; ++i) {
for (j = 0; j < len; ++j) {
a[0] * a[j]
a[i] * a[j]
(a[0] * i) * a[j]
a[0] * (a[j] * i)
(a[0] * i) * (a[j] * i)
}
}