jzoj 1433. 數碼問題

Description

　　Alice有一個N*N的格子，把1-N^2按照從上到下從左到右的順序填進表格中，允許在表格上進行兩種操作：
　　(1) 旋轉行——這一行的數向右移動一個位置，而最後一列的數會移到第一列；
　　(2) 旋轉列——這一列的數向下移動一個位置，最後一行的數會移到第一行。
　　Alice想把數X移到（R,C）處可以採用以下方法：
　　•如果X不在C這一列，通過旋轉行操作把X移到C這一列；
　　•如果X不在R這一行，通過旋轉列操作把X移到R這一行。
　　下面是一個把6移到（3，4）的例子：
　　
　　Alice現在想採用上述方法，依次把K個數移到各自的目標位置，編程計算每個數需要幾次操作。

Input

　　第一行包含兩個整數N(12<=N<=10000)和K(1<=K<=1000)。
　　接下來K行，每行包含三個整數X(1<=X<=N^2)、R和C(1<=R,C<=N)，描述需要移動的數以及目標位置。
　　Alice必須按照輸入順序依次移動。

Output

　　輸出K行，每行輸出一個整數，表示操作次數。

Sample Input

輸入1：
4 1
6 3 4

輸入2：
4 2
6 3 4
6 2 2

輸入3：
5 3
1 2 2
2 2 2
12 5 5

Sample Output

輸出1：
3

輸出2：
3
5

輸出3：
2
5
3

Data Constraint

正解

看範圍就知道，一個個模擬狀態肯定是過不了的。我們可以想到，不管怎麼移，他所在的那一行、那一列的數都不會改變（只是順序變了而已）。所以，我們不用枚舉，直接維護一下他的行和列就行了。

CODE

var
        n,m,i,j,k,x,y:longint;
        lie,hang,r,c:array[1..1001]of longint;
begin
        readln(n,m);
        for i:=1 to m do begin
                readln(k,r[i],c[i]);
                x:=k div n;
                y:=k mod n;
                if y=0 then
                        y:=n
                else
                        inc(x);
                for j:=1 to i-1 do begin
                        if r[j]=x then
                                y:=(y+lie[j]) mod n;
                        if y=0 then y:=n;
                        if c[j]=y then
                                x:=(x+hang[j]) mod n;
                        if x=0 then x:=n;
                end;
                lie[i]:=c[i]-y;
                if lie[i]<0 then
                        lie[i]:=lie[i]+n;
                hang[i]:=r[i]-x;
                if hang[i]<0 then
                        hang[i]:=hang[i]+n;
                r[i]:=x;
                writeln(lie[i]+hang[i]);
        end;
end.