5.16特长生模拟题 遭遇战

题目

………………………………………………………………
mxy沉迷于一个辣鸡游戏不可自拔。
游戏地图是一个n*n的矩形，左上角为（0,0），右下角为（n-1，n-1）。mxy与对手同时进入地图的随机位置，并以相同速度进行走位。为了隐蔽性，两人都不会再走自己走过的格子。如果两人向某一方向前进，那么他们会跑到不能跑为止，当不能跑的时候，mxy会向右转，对手则会向左转，如果不能跑，则不再动。
现在告诉你两人进入地图的初始位置和方向，请算出两人遭遇的位置。（不遭遇输出-1）

题解

………………………………………………………………
暴搜两人走过的位置，若相遇就输出，若都不能走了直接输出-1
时间复杂度O（n^3)

代码

const
  dx:array[0..3]of integer=(0,1,0,-1);
  dy:array[0..3]of integer=(1,0,-1,0);
var
  t,n,x,y,d,i,j,k,x1,y1,d1:longint;
  a,b:array[-1..1001,-1..1001]of boolean;

procedure dfs;
var
  f1,f2:boolean;
begin
  f1:=true;f2:=true;
  while (x<>x1)or(y<>y1) do
    begin
      if f1 then
        begin
          j:=x+dx[d];k:=y+dy[d];
          if a[j,k]=false then
            begin
              d:=(d+1) mod 4;
              j:=x+dx[d];k:=y+dy[d];
              if a[j,k]=false then f1:=false;
            end;
          if f1 then begin x:=j;y:=k;a[j,k]:=false;end;
        end;
      if f2 then
        begin
          j:=x1+dx[d1];k:=y1+dy[d1];
          if b[j,k]=false then
            begin
              d1:=(d1+3) mod 4;
              j:=x1+dx[d1];k:=y1+dy[d1];
              if b[j,k]=false then f2:=false;
            end;
          if f2 then begin x1:=j;y1:=k;b[j,k]:=false;end;
        end;
      if (f1=false)and(f2=false) then break;
    end;
  if (x=x1)and(y=y1) then writeln(x,' ',y) else writeln('-1');
end;

begin
  assign(input,'fight.in');
  assign(output,'fight.out');
  reset(input);rewrite(output);
  readln(t);
  for i:=1 to t do
    begin
      readln(n);
      readln(x,y,d);
      readln(x1,y1,d1);
      fillchar(a,sizeof(a),false);
      fillchar(b,sizeof(b),false);
      for j:=0 to n-1 do
        for k:=0 to n-1 do
          begin
            a[j,k]:=true;
            b[j,k]:=true;
          end;
      dfs;
    end;
  close(input);close(output);
end.