8.16 麻将游戏 1786

题目

在一种”麻将”游戏中，游戏是在一个有W＊H格子的矩形平板上进行的。每个格子可以放置一个麻将牌，也可以不放（如图所示）。玩家的目标是将平板上的所有可通过一条路径相连的两张相同的麻将牌，从平板上移去。最后如果能将所有牌移出平板，则算过关。
　　这个游戏中的一个关键问题是：两张牌之间是否可以被一条路径所连接，该路径满足以下两个特性：
　　1. 它由若干条线段组成，每条线段要么是水平方向，要么是垂直方向。
　　2. 这条路径不能横穿任何一个麻将牌 (但允许路径暂时离开平板)。
　　这是一个例子：

　　在（1，3）的牌和在(4, 4)的牌可以被连接。(2, 3)和(3, 4)不能被连接。
　　你的任务是编一个程序，检测两张牌是否能被一条符合以上规定的路径所连接。

　输入文件的第一行有两个整数w，h （1<=w，h<=75），表示平板的宽和高。接下来h行描述平板信息，每行包含w个字符，如果某格子有一张牌，则这个格子上有个’X’，否则是一个空格。平板上最左上角格子的坐标为（1，1），最右下角格子的坐标为（w,h）。接下来的若干行，每行有四个数x1， y1， x2， y2 ，且满足1<=x1,x2<=w，1<=y1,y2<=h，表示两张牌的坐标（这两张牌的坐标总是不同的）。如果出现连续四个0，则表示输入结束。

输出文件中，对于每一对牌输出占一行，为连接这一对牌的路径最少包含的线段数。如果不存在路径则输出0。

5 4                  4
XXXXX                3
X   X                0
XXX X
 XXX 
2 3 5 3
1 3 4 4 
2 3 3 4
0 0 0 0

题解

求线段数量即求最小转弯次数+1

除了与最少转弯问题类似要注意的地方，还有一种情况：

  XXXX          1 3 3 1
    X
XXXXX
很明显答案为2，但是如果标记过的路不走那么就会输出3

时间复杂度O(nm)

代码

const
  dx:array[1..4]of integer=(1,-1,0,0);
  dy:array[1..4]of integer=(0,0,-1,1);
var
  c:char;
  n,m,i,j,k,x,y:longint;
  a,e:array[-1..77,-1..77]of longint;

function bfs(x1,y1,x2,y2:longint):longint;
var
  state:array[1..10000,1..3]of longint;
  head,tail,i,x,y,j,k:longint;
begin
  bfs:=0;
  head:=0;tail:=1;state[1,1]:=x1;state[1,2]:=y1;state[1,3]:=0;a[x2,y2]:=maxlongint;
  while head<tail do
    begin
      inc(head);
      x:=state[head,1];y:=state[head,2];
      for i:=1 to 4 do
        if a[x+dx[i],y+dy[i]]<>-1 then
          begin
            j:=x+dx[i];k:=y+dy[i];
            while (a[j,k]<>-1)and(state[head,3]+1<=a[j,k]) do
              begin
                a[j,k]:=state[head,3]+1;
                inc(tail);
                state[tail,1]:=j;state[tail,2]:=k;
                state[tail,3]:=state[head,3]+1;
                if (j=x2)and(k=y2) then exit(state[tail,3]);
                j:=j+dx[i];k:=k+dy[i];
              end;
          end;
    end;
end;

begin
//  assign(input,'mahjong.in');
//  assign(output,'mahjong.out');
//  reset(input);rewrite(output);
  readln(n,m);
  fillchar(a,sizeof(a),$7f);
  for i:=-1 to n+2 do
    begin
      a[m+2,i]:=-1;
      a[-1,i]:=-1;
    end;
  for i:=-1 to m+2 do
    begin
      a[i,-1]:=-1;
      a[i,n+2]:=-1;
    end;
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          read(c);
          if c='X' then a[i,j]:=-1;
        end;
      readln;
    end;
  readln(j,k,x,y);
  while (j>0)or(k>0)or(x>0)or(y>0) do
    begin
      e:=a;
      writeln(bfs(k,j,y,x));
      a:=e;
      readln(j,k,x,y);
    end;
//  close(input);close(output);
end.