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

#! /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)