1*fdc4a7c8SStefan Eßer#! /usr/bin/bc -lq 2*fdc4a7c8SStefan Eßer 3*fdc4a7c8SStefan Eßerscale = 20 4*fdc4a7c8SStefan Eßerx = 1234567890 / scale 5*fdc4a7c8SStefan Eßerlen = length(x) + 1 + scale 6*fdc4a7c8SStefan Eßer 7*fdc4a7c8SStefan Eßerfor (i = 0; i <= len; ++i) { 8*fdc4a7c8SStefan Eßer a[i] = x * (10^i) 9*fdc4a7c8SStefan Eßer a[i] 10*fdc4a7c8SStefan Eßer} 11*fdc4a7c8SStefan Eßer 12*fdc4a7c8SStefan Eßerfor (i = 8101; i <= 8200; ++i) { 13*fdc4a7c8SStefan Eßer for (j = 0; j < len; ++j) { 14*fdc4a7c8SStefan Eßer a[0] * a[j] 15*fdc4a7c8SStefan Eßer a[i] * a[j] 16*fdc4a7c8SStefan Eßer (a[0] * i) * a[j] 17*fdc4a7c8SStefan Eßer a[0] * (a[j] * i) 18*fdc4a7c8SStefan Eßer (a[0] * i) * (a[j] * i) 19*fdc4a7c8SStefan Eßer } 20*fdc4a7c8SStefan Eßer} 21