[宽度优先搜索BFS]麻将游戏

题目:[宽度优先搜索BFS]麻将游戏

题目描述

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

输入

   第一行有两个整数 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
XXXXX
X X
XXX X
XXX
2 3 5 3
1 3 4 4
2 3 3 4
0 0 0 0

样例输出

4
3
0
Cake 1#
c++

#include<cstdio>
#include<cstring>
int n,m,a[255][255],l,r,b[255][255],kx,ky,jx,jy,t,x1,y1,z,zz;char zm,c;
int dx[5]={0,-1,0,0,1},dy[5]={0,0,-1,1,0};
int ss(int cs){
	z=0;int i1;
//	for(int i=0;i<=n+1;i++){
//		for(int j=0;j<=m+1;j++)
//			printf("%d ",b[i][j]);
//			printf("\n");
//		}printf("%d %d\n",cs,z);
	for(int i=0;i<=n+1;i++){
		for(int j=0;j<=m+1;j++){
			if(b[i][j]==cs&&a[i][j]==0||b[i][j]==1&&cs==1){
//				printf("%d %d\n",i,j);
				i1=1;while((b[i+dx[1]*i1][j+dy[1]*i1]==0||b[i+dx[1]*i1][j+dy[1]*i1]==cs+1)&&a[i+dx[1]*i1][j+dy[1]*i1]==0&&i+dx[1]*i1<=n+1&&j+dy[1]*i1<=m+1&&i+dx[1]*i1>=0&&j+dy[1]*i1>=0){b[i+dx[1]*i1][j+dy[1]*i1]=cs+1;z=1;i1++;}if(b[i+dx[1]*i1][j+dy[1]*i1]==0)b[i+dx[1]*i1][j+dy[1]*i1]=cs+1;
				i1=1;while((b[i+dx[2]*i1][j+dy[2]*i1]==0||b[i+dx[2]*i1][j+dy[2]*i1]==cs+1)&&a[i+dx[2]*i1][j+dy[2]*i1]==0&&i+dx[2]*i1<=n+1&&j+dy[2]*i1<=m+1&&i+dx[2]*i1>=0&&j+dy[2]*i1>=0){b[i+dx[2]*i1][j+dy[2]*i1]=cs+1;z=1;i1++;}if(b[i+dx[2]*i1][j+dy[2]*i1]==0)b[i+dx[2]*i1][j+dy[2]*i1]=cs+1;
				i1=1;while((b[i+dx[3]*i1][j+dy[3]*i1]==0||b[i+dx[3]*i1][j+dy[3]*i1]==cs+1)&&a[i+dx[3]*i1][j+dy[3]*i1]==0&&i+dx[3]*i1<=n+1&&j+dy[3]*i1<=m+1&&i+dx[3]*i1>=0&&j+dy[3]*i1>=0){b[i+dx[3]*i1][j+dy[3]*i1]=cs+1;z=1;i1++;}if(b[i+dx[3]*i1][j+dy[3]*i1]==0)b[i+dx[3]*i1][j+dy[3]*i1]=cs+1;
				i1=1;while((b[i+dx[4]*i1][j+dy[4]*i1]==0||b[i+dx[4]*i1][j+dy[4]*i1]==cs+1)&&a[i+dx[4]*i1][j+dy[4]*i1]==0&&i+dx[4]*i1<=n+1&&j+dy[4]*i1<=m+1&&i+dx[4]*i1>=0&&j+dy[4]*i1>=0){b[i+dx[4]*i1][j+dy[4]*i1]=cs+1;z=1;i1++;}if(b[i+dx[4]*i1][j+dy[4]*i1]==0)b[i+dx[4]*i1][j+dy[4]*i1]=cs+1;
			}
		}
	}
	if(z==1) ss(cs+1);
}
int main(){
	scanf("%d %d",&m,&n);
	zz=n>m?n:m;
	for(int i=1;i<=n;i++)
	for(int j=1;j<=m;j++)
	do{
		scanf("%c",&c);
		if(c=='X')a[i][j]=1;
		if(c==' ')a[i][j]=0;
	}while(c!='X'&&c!=' ');
	scanf("%d %d %d %d",&ky,&kx,&jy,&jx);
	while(kx!=0||ky!=0||jx!=0||jy!=0){
		for(int i=0;i<=n+1;i++)
		for(int j=0;j<=m+1;j++)
			b[i][j]=0;
		r=0;l=1;z=0;b[kx][ky]=1;
		ss(1);
//		for(int i=0;i<=n+1;i++){
//		for(int j=0;j<=m+1;j++)
//			printf("%d ",b[i][j]);
//			printf("\n");
//		}
		if(b[jx][jy]>0)b[jx][jy]--;
		printf("%d\n",b[jx][jy]);
		scanf("%d %d %d %d",&ky,&kx,&jy,&jx);
	}
}

Cake 2#
c++

#include<bits/stdc++.h>
using namespace std;
int dx[4]={0,0,-1,1},dy[4]={-1,1,0,0},c[100][100],d[100][100];
int b[10001][10],v[101][101],n,m;
int x1,x2,Y1,y2;
char a[101][101];
void bfs(int s,int t){
memset(d, 0, sizeof d);
 b[1][0]=s,b[1][1]=t;
 int l=0,r=1,x,y;
 d[s][t] = 1;
 while(l<r){
  l++;
  for(int i=0;i<4;i++){
   x=dx[i]+b[l][0];y=dy[i]+b[l][1];
   while(x>=0&&x<=n+1&&y>=0&&y<=m+1&&v[x][y]==0){
    if(x==x2&&y==y2){
     cout<<c[b[l][0]][b[l][1]]+1<<endl;
     return;
    }
    if (d[x][y] == 0){
    	r++;
		b[r][0]=x,b[r][1]=y;
		d[x][y] = 1;
		c[x][y]=c[b[l][0]][b[l][1]]+1;
    }
	// printf("%d %d %d\n",x,y,c[x][y]);
    x=x+dx[i],y=y+dy[i];
   }
  }
 }
 cout<<0<<endl;
}
int main(){
 cin>>m>>n;
    for(int i=0;i<=n;i++){
    	char c1;
    	int j=1;
    	c1=getchar();
    	while(c1!='\n'&&c1!=EOF){
    		a[i][j]=c1;
    		c1=getchar();
    		j++;
    	}
    }
 while(1){
  cin>>Y1>>x1>>y2>>x2;
  if(x1==0&&Y1==0&&x2==0&&y2==0)return 0;
  memset(v,0,sizeof(v));
  for(int i=1;i<=n;i++){
   for(int j=1;j<=m;j++){
    if(a[i][j]=='X')v[i][j]=1;
   }
  }
  v[x1][Y1]=v[x2][y2]=0;
  bfs(x1,Y1);
 }
 return 0;
}

Cake 3#
Pascal

const
  xx:array[1..4]of longint=(1,0,-1,0);
  yy:array[1..4]of longint=(0,-1,0,1);
type node=record
     depth,x,y:longint;
     end;
var tx,ty,x1,y1,x2,y2,i,j,head,tail,h,w,k,r,ans,cut:longint;
    b:array[0..80,0..80]of longint;
    g:array[0..80,0..80]of boolean;
    q:array[1..100000]of node;
    ch:char;
    succeed:boolean;
    st:string;
begin
  readln(w,h);
  fillchar(g,sizeof(g),true);
  for i:=1 to h do
  begin
    readln(st);
    for j:=1 to w do
    if st[j]='X' then g[i,j]:=false;
  end;
  while true do
  begin
    readln(y1,x1,y2,x2);
    if (x1=0) and (y1=0) and (x2=0) and (y2=0) then break;
    fillchar(b,sizeof(b),0);
    head:=0; tail:=1; q[1].depth:=0; q[1].x:=x1; q[1].y:=y1; cut:=0;
    repeat
      inc(head); succeed:=false;
      for r:=1 to 4 do
      begin
        tx:=q[head].x+xx[r]; ty:=q[head].y+yy[r];
        while (tx>=0) and (tx<=h+1) and (ty>=0) and (ty<=w+1)and ((b[tx,ty]=0)or(b[tx,ty]=q[head].depth+1))do
        begin
          if (tx=x2) and (ty=y2)then
          begin
            writeln(q[head].depth+1);
            succeed:=true;
            break;
          end;
          if not g[tx,ty] then break;
          if b[tx,ty]=0 then
          begin
            b[tx,ty]:=q[head].depth+1;
            inc(tail);
            q[tail].depth:=q[head].depth+1;
            q[tail].x:=tx;
            q[tail].y:=ty;
          end;
          tx:=tx+xx[r]; ty:=ty+yy[r];
        end;
        if succeed then break;
      end;
    until (head>=tail) or succeed;
    if not succeed then writeln(0);
  end;
end.