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