You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
409 lines
4.7 KiB
409 lines
4.7 KiB
#! /usr/bin/bc -q
|
|
|
|
define printarray(a[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a[i]
|
|
}
|
|
}
|
|
|
|
define a2(a[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a[i] = a[i] * a[i]
|
|
}
|
|
|
|
printarray(a[], len)
|
|
}
|
|
|
|
define a4(a__[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a__[i] = a__[i] * a__[i]
|
|
}
|
|
|
|
printarray(a__[], len)
|
|
}
|
|
|
|
define a6(*a__[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a__[i] = a__[i] * a__[i]
|
|
}
|
|
|
|
printarray(a__[], len)
|
|
}
|
|
|
|
define a1(*a[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a[i] = i
|
|
}
|
|
|
|
a2(a[], len)
|
|
|
|
printarray(a[], len)
|
|
}
|
|
|
|
define a3(*a__[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a__[i] = i
|
|
}
|
|
|
|
a4(a__[], len)
|
|
|
|
printarray(a__[], len)
|
|
}
|
|
|
|
define a5(*a__[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a__[i] = i
|
|
}
|
|
|
|
a2(a__[], len)
|
|
|
|
printarray(a__[], len)
|
|
}
|
|
|
|
define a7(*a__[], len) {
|
|
|
|
auto i
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
a__[i] = i
|
|
}
|
|
|
|
a6(a__[], len)
|
|
|
|
printarray(a__[], len)
|
|
}
|
|
|
|
len = 16
|
|
|
|
a1(a[], len)
|
|
printarray(a[], len)
|
|
a3(a[], len)
|
|
printarray(a[], len)
|
|
a5(a[], len)
|
|
printarray(a[], len)
|
|
a7(a[], len)
|
|
printarray(a[], len)
|
|
|
|
a1(b[], len)
|
|
printarray(b[], len)
|
|
a3(b[], len)
|
|
printarray(b[], len)
|
|
a5(b[], len)
|
|
printarray(b[], len)
|
|
a7(b[], len)
|
|
printarray(b[], len)
|
|
|
|
a1[0] = 0
|
|
a2[0] = 0
|
|
a3[0] = 0
|
|
a4[0] = 0
|
|
a5[0] = 0
|
|
a6[0] = 0
|
|
a7[0] = 0
|
|
a8[0] = 0
|
|
a9[0] = 0
|
|
a10[0] = 0
|
|
a11[0] = 0
|
|
a12[0] = 0
|
|
a13[0] = 0
|
|
a14[0] = 0
|
|
a15[0] = 0
|
|
a16[0] = 0
|
|
a17[0] = 0
|
|
a18[0] = 0
|
|
a19[0] = 0
|
|
a20[0] = 0
|
|
a21[0] = 0
|
|
a22[0] = 0
|
|
a23[0] = 0
|
|
a24[0] = 0
|
|
a25[0] = 0
|
|
a26[0] = 0
|
|
a27[0] = 0
|
|
a28[0] = 0
|
|
a29[0] = 0
|
|
a30[0] = 0
|
|
a31[0] = 0
|
|
a32[0] = 0
|
|
a33[0] = 0
|
|
a34[0] = 0
|
|
a35[0] = 0
|
|
a36[0] = 0
|
|
a37[0] = 0
|
|
a38[0] = 0
|
|
a39[0] = 0
|
|
a40[0] = 0
|
|
a41[0] = 0
|
|
a42[0] = 0
|
|
a43[0] = 0
|
|
a44[0] = 0
|
|
a45[0] = 0
|
|
a46[0] = 0
|
|
a47[0] = 0
|
|
a48[0] = 0
|
|
a49[0] = 0
|
|
a50[0] = 0
|
|
a51[0] = 0
|
|
a52[0] = 0
|
|
a53[0] = 0
|
|
a54[0] = 0
|
|
a55[0] = 0
|
|
a56[0] = 0
|
|
a57[0] = 0
|
|
a58[0] = 0
|
|
a59[0] = 0
|
|
a60[0] = 0
|
|
a61[0] = 0
|
|
a62[0] = 0
|
|
a63[0] = 0
|
|
a64[0] = 0
|
|
a65[0] = 0
|
|
a66[0] = 0
|
|
a67[0] = 0
|
|
a68[0] = 0
|
|
a69[0] = 0
|
|
a70[0] = 0
|
|
a71[0] = 0
|
|
a72[0] = 0
|
|
a73[0] = 0
|
|
a74[0] = 0
|
|
a75[0] = 0
|
|
a76[0] = 0
|
|
a77[0] = 0
|
|
a78[0] = 0
|
|
a79[0] = 0
|
|
a80[0] = 0
|
|
a81[0] = 0
|
|
a82[0] = 0
|
|
a83[0] = 0
|
|
a84[0] = 0
|
|
a85[0] = 0
|
|
a86[0] = 0
|
|
a87[0] = 0
|
|
a88[0] = 0
|
|
a89[0] = 0
|
|
a90[0] = 0
|
|
a91[0] = 0
|
|
a92[0] = 0
|
|
a93[0] = 0
|
|
a94[0] = 0
|
|
a95[0] = 0
|
|
a96[0] = 0
|
|
a97[0] = 0
|
|
a98[0] = 0
|
|
a99[0] = 0
|
|
a100[0] = 0
|
|
a101[0] = 0
|
|
a102[0] = 0
|
|
a103[0] = 0
|
|
a104[0] = 0
|
|
a105[0] = 0
|
|
a106[0] = 0
|
|
a107[0] = 0
|
|
a108[0] = 0
|
|
a109[0] = 0
|
|
a110[0] = 0
|
|
a111[0] = 0
|
|
a112[0] = 0
|
|
a113[0] = 0
|
|
a114[0] = 0
|
|
a115[0] = 0
|
|
a116[0] = 0
|
|
a117[0] = 0
|
|
a118[0] = 0
|
|
a119[0] = 0
|
|
a120[0] = 0
|
|
a121[0] = 0
|
|
a122[0] = 0
|
|
a123[0] = 0
|
|
a124[0] = 0
|
|
a125[0] = 0
|
|
a126[0] = 0
|
|
a127[0] = 0
|
|
a128[0] = 0
|
|
a129[0] = 0
|
|
a130[0] = 0
|
|
a131[0] = 0
|
|
a132[0] = 0
|
|
a133[0] = 0
|
|
a134[0] = 0
|
|
a135[0] = 0
|
|
a136[0] = 0
|
|
a137[0] = 0
|
|
a138[0] = 0
|
|
a139[0] = 0
|
|
a140[0] = 0
|
|
a141[0] = 0
|
|
a142[0] = 0
|
|
a143[0] = 0
|
|
a144[0] = 0
|
|
a145[0] = 0
|
|
a146[0] = 0
|
|
a147[0] = 0
|
|
a148[0] = 0
|
|
a149[0] = 0
|
|
a150[0] = 0
|
|
a151[0] = 0
|
|
a152[0] = 0
|
|
a153[0] = 0
|
|
a154[0] = 0
|
|
a155[0] = 0
|
|
a156[0] = 0
|
|
a157[0] = 0
|
|
a158[0] = 0
|
|
a159[0] = 0
|
|
a160[0] = 0
|
|
a161[0] = 0
|
|
a162[0] = 0
|
|
a163[0] = 0
|
|
a164[0] = 0
|
|
a165[0] = 0
|
|
a166[0] = 0
|
|
a167[0] = 0
|
|
a168[0] = 0
|
|
a169[0] = 0
|
|
a170[0] = 0
|
|
a171[0] = 0
|
|
a172[0] = 0
|
|
a173[0] = 0
|
|
a174[0] = 0
|
|
a175[0] = 0
|
|
a176[0] = 0
|
|
a177[0] = 0
|
|
a178[0] = 0
|
|
a179[0] = 0
|
|
a180[0] = 0
|
|
a181[0] = 0
|
|
a182[0] = 0
|
|
a183[0] = 0
|
|
a184[0] = 0
|
|
a185[0] = 0
|
|
a186[0] = 0
|
|
a187[0] = 0
|
|
a188[0] = 0
|
|
a189[0] = 0
|
|
a190[0] = 0
|
|
a191[0] = 0
|
|
a192[0] = 0
|
|
a193[0] = 0
|
|
a194[0] = 0
|
|
a195[0] = 0
|
|
a196[0] = 0
|
|
a197[0] = 0
|
|
a198[0] = 0
|
|
a199[0] = 0
|
|
a200[0] = 0
|
|
a201[0] = 0
|
|
a202[0] = 0
|
|
a203[0] = 0
|
|
a204[0] = 0
|
|
a205[0] = 0
|
|
a206[0] = 0
|
|
a207[0] = 0
|
|
a208[0] = 0
|
|
a209[0] = 0
|
|
a210[0] = 0
|
|
a211[0] = 0
|
|
a212[0] = 0
|
|
a213[0] = 0
|
|
a214[0] = 0
|
|
a215[0] = 0
|
|
a216[0] = 0
|
|
a217[0] = 0
|
|
a218[0] = 0
|
|
a219[0] = 0
|
|
a220[0] = 0
|
|
a221[0] = 0
|
|
a222[0] = 0
|
|
a223[0] = 0
|
|
a224[0] = 0
|
|
a225[0] = 0
|
|
a226[0] = 0
|
|
a227[0] = 0
|
|
a228[0] = 0
|
|
a229[0] = 0
|
|
a230[0] = 0
|
|
a231[0] = 0
|
|
a232[0] = 0
|
|
a233[0] = 0
|
|
a234[0] = 0
|
|
a235[0] = 0
|
|
a236[0] = 0
|
|
a237[0] = 0
|
|
a238[0] = 0
|
|
a239[0] = 0
|
|
a240[0] = 0
|
|
a241[0] = 0
|
|
a242[0] = 0
|
|
a243[0] = 0
|
|
a244[0] = 0
|
|
a245[0] = 0
|
|
a246[0] = 0
|
|
a247[0] = 0
|
|
a248[0] = 0
|
|
a249[0] = 0
|
|
a250[0] = 0
|
|
a251[0] = 0
|
|
a252[0] = 0
|
|
a253[0] = 0
|
|
a254[0] = 0
|
|
a255[0] = 0
|
|
a256[0] = 0
|
|
|
|
a1(a253[], len)
|
|
printarray(a253[], len)
|
|
a3(a253[], len)
|
|
printarray(a253[], len)
|
|
a5(a253[], len)
|
|
printarray(a253[], len)
|
|
a7(a253[], len)
|
|
printarray(a253[], len)
|
|
|
|
a1(a254[], len)
|
|
printarray(a254[], len)
|
|
a3(a254[], len)
|
|
printarray(a254[], len)
|
|
a5(a254[], len)
|
|
printarray(a254[], len)
|
|
a7(a254[], len)
|
|
printarray(a254[], len)
|
|
|
|
a1(a255[], len)
|
|
printarray(a255[], len)
|
|
a3(a255[], len)
|
|
printarray(a255[], len)
|
|
a5(a255[], len)
|
|
printarray(a255[], len)
|
|
a7(a255[], len)
|
|
printarray(a255[], len)
|
|
|
|
a1(a256[], len)
|
|
printarray(a256[], len)
|
|
a3(a256[], len)
|
|
printarray(a256[], len)
|
|
a5(a256[], len)
|
|
printarray(a256[], len)
|
|
a7(a256[], len)
|
|
printarray(a256[], len)
|