Zig-zag matrix: Difference between revisions
m
→{{header|Arturo}}
Drkameleon (talk | contribs) |
Drkameleon (talk | contribs) |
||
Line 715:
<lang rebol>zigzag: function [n][
x: 1, y: 1, v: 0, d: 1
Line 721:
while [v < n^2][
if? all? @[1 =< x x =< n 1 =< y y =< n][
set get
x: x + d, y: y - d, v: v + 1
]
Line 733:
]
]
return result
]
| |||