23 lines
491 B
Text
23 lines
491 B
Text
include c:\cxpl\codes;
|
|
def N=6;
|
|
int A(N,N), X, Y, I, D;
|
|
[I:=0; X:=0; Y:=0; D:=1;
|
|
repeat A(X,Y):=I;
|
|
case of
|
|
X+D>=N: [D:=-D; Y:=Y+1];
|
|
Y-D>=N: [D:=-D; X:=X+1];
|
|
X+D<0: [D:=-D; Y:=Y+1];
|
|
Y-D<0: [D:=-D; X:=X+1]
|
|
other [X:=X+D; Y:=Y-D];
|
|
I:=I+1;
|
|
until I>=N*N;
|
|
for Y:=0 to N-1 do
|
|
[for X:=0 to N-1 do
|
|
[I:=A(X,Y);
|
|
ChOut(0,^ );
|
|
if I<10 then ChOut(0,^ );
|
|
IntOut(0, I);
|
|
];
|
|
CrLf(0);
|
|
];
|
|
]
|