Zig-zag matrix: Difference between revisions

m
(+Maple)
Line 3,270:
=={{header|Maple}}==
{{trans|Stata}}
 
Here values are starting at 1. Replace <code><v+~1,v+~2></code> with <code><v,v+~1></code> to start at 0.
 
<lang maple>zigzag1:=proc(n)
Line 3,301 ⟶ 3,303:
 
<pre>Matrix(6, 6, [[ 1, 2, 6, 7, 15, 16],
[ 3, 5, 8, 14, 17, 27],
[ 4, 9, 13, 18, 26, 31],
[10, 12, 19, 25, 32, 42],
[11, 20, 24, 33, 41, 50],
[21, 23, 34, 40, 51, 61]])</pre>
 
<lang maple>zigzag2(6);</lang>
Line 3,312 ⟶ 3,314:
 
<pre>Matrix(6, 6, [[ 1, 2, 6, 7, 15, 16],
[ 3, 5, 8, 14, 17, 26],
[ 4, 9, 13, 18, 25, 27],
[10, 12, 19, 24, 28, 33],
[11, 20, 23, 29, 32, 34],
[21, 22, 30, 31, 35, 36]])</pre>
 
=={{header|Mathematica}} / {{header|Wolfram Language}}==
175

edits