Zig-zag matrix: Difference between revisions
Added Quackery.
(Added solution for Action!) |
(Added Quackery.) |
||
Line 5,210:
9 11 17 20 22
10 18 19 23 24
</pre>
=={{header|Quackery}}==
{{trans|Python:_By_sorting_indices}}
<lang Quackery> [ dup temp put
[] swap
dup * times [ i^ join ]
sortwith
[ temp share /mod tuck +
1 & if negate swap
temp share /mod tuck +
1 & if negate < ]
sortwith
[ temp share /mod + swap
temp share /mod + < ]
[] swap
witheach
[ i join nested join ]
sortwith
[ 0 peek swap 0 peek > ]
[] swap
witheach
[ 1 peek join ]
[] swap
temp share times
[ temp share split
dip [ nested join ] ]
drop temp release ] is zigzag ( n --> [ )
10 zigzag
witheach
[ witheach
[ dup 10 < if sp
echo sp ]
cr ]</lang>
{{out}}
<pre> 0 1 5 6 14 15 27 28 44 45
2 4 7 13 16 26 29 43 46 63
3 8 12 17 25 30 42 47 62 64
9 11 18 24 31 41 48 61 65 78
10 19 23 32 40 49 60 66 77 79
20 22 33 39 50 59 67 76 80 89
21 34 38 51 58 68 75 81 88 90
35 37 52 57 69 74 82 87 91 96
36 53 56 70 73 83 86 92 95 97
54 55 71 72 84 85 93 94 98 99
</pre>
| |||