Brothers 纪中4764 模拟

Description

在遥远的西方有一个古老的王国，国王将他的王国分成了网格状，每一块称之为一个城市。在国王临死前，他将这些城市分给了自己的N个儿子（编号为0到N-1）。然而这N个王子的关系不是很好，0讨厌1，1讨厌2，2讨厌3……N-1讨厌0。
在国王死后，这种不好的关系使得王子之间爆发了战争。战斗只会在相邻的两个城市之间爆发（共有一条边称之为相邻），并且只有当A讨厌B时，A才会对B发起战斗，结果必定是A获得这次战斗的胜利。当一方胜利后，他所进攻的城市就会变成进攻方的。许多战斗是同时发生的，我们称之为一场战役。当多场战役发生之后，剩下的王子将不再发生战争。
例如，如果有3个王子，那么战斗过程如下所示：

Input

第一行输入4个数，N,R,C,K。有N个王子，王国分为R*C的网格图。询问K场战役之后的城市归属图。
下面R行，每行C个数字，表示一开始城市的归属。

Output

R行C列，表示K场战役之后的城市归属图。

分析

纯模拟

代码

const
  dx:array[1..4] of longint=(1,-1,0,0);
  dy:array[1..4] of longint=(0,0,1,-1);

var
  map,lin:array[0..200,0..200] of longint;
  nm,n,m,num:longint;

procedure init;
var
  i,j,k:longint;
begin
  readln(nm,n,m,num);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          read(map[i,j]);
          lin[i,j]:=map[i,j];
        end;
      readln;
    end;
end;

function pan(x,y:longint):boolean;
begin
  pan:=true;
  if (x<1) or (y<1) or (x>n) or (y>m)
    then exit(false);
end;

procedure main;
var
  i,j,k,l:longint;
  x,y:longint;
begin
  for i:=1 to num do
    begin
      for j:=1 to n do
        for k:=1 to m do
          begin
            for l:=1 to 4 do
              begin
                x:=j+dx[l];
                y:=k+dy[l];
                if pan(x,y) and ((map[x,y]=map[j,k]+1) or ((map[x,y]=0) and (map[j,k]=nm-1)))
                  then lin[x,y]:=map[j,k];
              end;
          end;
      map:=lin;
    end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(map[i,j],' ');
      writeln;
    end;
end;

begin
  init;
  main;
end.