| Denys Vlasenko | 5379950 | 2019-01-25 14:24:03 +0100 | [diff] [blame] | 1 | define printarray(a[], len) { |
| 2 | |
| 3 | auto i |
| 4 | |
| 5 | for (i = 0; i < len; ++i) { |
| 6 | a[i] |
| 7 | } |
| 8 | } |
| 9 | |
| 10 | define a2(a[], len) { |
| 11 | |
| 12 | auto i |
| 13 | |
| 14 | for (i = 0; i < len; ++i) { |
| 15 | a[i] = a[i] * a[i] |
| 16 | } |
| 17 | |
| 18 | printarray(a[], len) |
| 19 | } |
| 20 | |
| 21 | define a4(a__[], len) { |
| 22 | |
| 23 | auto i |
| 24 | |
| 25 | for (i = 0; i < len; ++i) { |
| 26 | a__[i] = a__[i] * a__[i] |
| 27 | } |
| 28 | |
| 29 | printarray(a__[], len) |
| 30 | } |
| 31 | |
| 32 | define a6(*a__[], len) { |
| 33 | |
| 34 | auto i |
| 35 | |
| 36 | for (i = 0; i < len; ++i) { |
| 37 | a__[i] = a__[i] * a__[i] |
| 38 | } |
| 39 | |
| 40 | printarray(a__[], len) |
| 41 | } |
| 42 | |
| 43 | define a1(*a[], len) { |
| 44 | |
| 45 | auto i |
| 46 | |
| 47 | for (i = 0; i < len; ++i) { |
| 48 | a[i] = i |
| 49 | } |
| 50 | |
| 51 | a2(a[], len) |
| 52 | |
| 53 | printarray(a[], len) |
| 54 | } |
| 55 | |
| 56 | define a3(*a__[], len) { |
| 57 | |
| 58 | auto i |
| 59 | |
| 60 | for (i = 0; i < len; ++i) { |
| 61 | a__[i] = i |
| 62 | } |
| 63 | |
| 64 | a4(a__[], len) |
| 65 | |
| 66 | printarray(a__[], len) |
| 67 | } |
| 68 | |
| 69 | define a5(*a__[], len) { |
| 70 | |
| 71 | auto i |
| 72 | |
| 73 | for (i = 0; i < len; ++i) { |
| 74 | a__[i] = i |
| 75 | } |
| 76 | |
| 77 | a2(a__[], len) |
| 78 | |
| 79 | printarray(a__[], len) |
| 80 | } |
| 81 | |
| 82 | define a7(*a__[], len) { |
| 83 | |
| 84 | auto i |
| 85 | |
| 86 | for (i = 0; i < len; ++i) { |
| 87 | a__[i] = i |
| 88 | } |
| 89 | |
| 90 | a6(a__[], len) |
| 91 | |
| 92 | printarray(a__[], len) |
| 93 | } |
| 94 | |
| 95 | len = 16 |
| 96 | |
| 97 | a1(a[], len) |
| 98 | printarray(a[], len) |
| 99 | a3(a[], len) |
| 100 | printarray(a[], len) |
| 101 | a5(a[], len) |
| 102 | printarray(a[], len) |
| 103 | a7(a[], len) |
| 104 | printarray(a[], len) |
| 105 | |
| 106 | halt |