aboutsummaryrefslogtreecommitdiff
path: root/tests/bc/scripts/multiply_07900.bc
blob: 8313633df2f9c375a716228e77fae14fc0aa2872 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /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 = 7801; i <= 7900; ++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)
	}
}