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ßerlen *= 2 7*fdc4a7c8SStefan Eßer 8*fdc4a7c8SStefan Eßerfor (i = 0; i <= len; ++i) { 9*fdc4a7c8SStefan Eßer a[i] = x * (10^i) 10*fdc4a7c8SStefan Eßer a[i] 11*fdc4a7c8SStefan Eßer} 12*fdc4a7c8SStefan Eßer 13*fdc4a7c8SStefan Eßerfor (i = 4001; i <= 4100; ++i) { 14*fdc4a7c8SStefan Eßer for (j = 0; j < len; ++j) { 15*fdc4a7c8SStefan Eßer a[i] - a[j] 16*fdc4a7c8SStefan Eßer } 17*fdc4a7c8SStefan Eßer} 18