40 lines
411 B
Text
40 lines
411 B
Text
5->N
|
|
DelVar [F]
|
|
{N,N}→dim([F])
|
|
1→A: N→B
|
|
1→C: N→D
|
|
0→E: E→G
|
|
1→I: 1→J
|
|
For(K,1,N*N)
|
|
K-1→[F](I,J)
|
|
If E=0: Then
|
|
If J<D: Then
|
|
J+1→J
|
|
Else: 1→G
|
|
I+1→I: A+1→A
|
|
End
|
|
End
|
|
If E=1: Then
|
|
If I<B: Then
|
|
I+1→I
|
|
Else: 2→G
|
|
J-1→J: D-1→D
|
|
End
|
|
End
|
|
If E=2: Then
|
|
If J>C: Then
|
|
J-1→J
|
|
Else: 3→G
|
|
I-1→I: B-1→B
|
|
End
|
|
End
|
|
If E=3: Then
|
|
If I>A: Then
|
|
I-1→I
|
|
Else: 0→G
|
|
J+1→J: C+1→C
|
|
End
|
|
End
|
|
G→E
|
|
End
|
|
[F]
|