21 lines
241 B
Text
21 lines
241 B
Text
zz(n)={
|
|
my(M=matrix(n,n),i,j,d=-1,start,end=n^2-1);
|
|
while(ct--,
|
|
M[i+1,j+1]=start;
|
|
M[n-i,n-j]=end;
|
|
start++;
|
|
end--;
|
|
i+=d;
|
|
j-=d;
|
|
if(i<0,
|
|
i++;
|
|
d=-d
|
|
,
|
|
if(j<0,
|
|
j++;
|
|
d=-d
|
|
)
|
|
);
|
|
if(start>end,return(M))
|
|
)
|
|
};
|