Zig-zag matrix: Difference between revisions
m
→{{header|Maple}}
Line 3,275:
<lang maple>zigzag1:=proc(n)
uses ArrayTools;
local i
u:=Replicate(<-1,1>,n):
v:=
v:=Reshape(<v+~1,v+~2>,2*n):
a:=Matrix(n,n):
Line 3,291 ⟶ 3,290:
local i,v,a;
a:=zigzag1(n);
v:=Vector(1..n-1,i->i
for i from 2 to n do
a[n+2-i..n,i]-=v[1..i-1]
| |||