SSL JudgeOnline 1786——麻将游戏
2016-12-24 10:22
183 查看
Description
在一种”麻将”游戏中,游戏是在一个有W*H格子的矩形平板上进行的。每个格子可以放置一个麻将牌,也可以不放(如图所示)。玩家的目标是将平板上的所有可通过一条路径相连的两张相同的麻将牌,从平板上移去。最后如果能将所有牌移出平板,则算过关。
这个游戏中的一个关键问题是:两张牌之间是否可以被一条路径所连接,该路径满足以下两个特性:
1. 它由若干条线段组成,每条线段要么是水平方向,要么是垂直方向。
2. 这条路径不能横穿任何一个麻将牌 (但允许路径暂时离开平板)。
这是一个例子:
![](https://img-blog.csdn.net/20161224101732465?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvU1NMX1paWQ==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/SouthEast)
在(1,3)的牌和在(4, 4)的牌可以被连接。(2, 3)和(3, 4)不能被连接。
你的任务是编一个程序,检测两张牌是否能被一条符合以上规定的路径所连接。
Input
输入文件的第一行有两个整数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,则表示输入结束。
Output
输出文件中,对于每一对牌输出占一行,为连接这一对牌的路径最少包含的线段数。如果不存在路径则输出0。
Sample Input
5 4
XXXXX
X X
XXX X
XXX
2 3 5 3
1 3 4 4
2 3 3 4
0 0 0 0
Sample Output
每一次向四个方向搜(上、下、左、右)一直搜到有麻将挡住为止。(Tip:麻将的路线可以走到棋盘外面)
代码如下:
在一种”麻将”游戏中,游戏是在一个有W*H格子的矩形平板上进行的。每个格子可以放置一个麻将牌,也可以不放(如图所示)。玩家的目标是将平板上的所有可通过一条路径相连的两张相同的麻将牌,从平板上移去。最后如果能将所有牌移出平板,则算过关。
这个游戏中的一个关键问题是:两张牌之间是否可以被一条路径所连接,该路径满足以下两个特性:
1. 它由若干条线段组成,每条线段要么是水平方向,要么是垂直方向。
2. 这条路径不能横穿任何一个麻将牌 (但允许路径暂时离开平板)。
这是一个例子:
在(1,3)的牌和在(4, 4)的牌可以被连接。(2, 3)和(3, 4)不能被连接。
你的任务是编一个程序,检测两张牌是否能被一条符合以上规定的路径所连接。
Input
输入文件的第一行有两个整数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,则表示输入结束。
Output
输出文件中,对于每一对牌输出占一行,为连接这一对牌的路径最少包含的线段数。如果不存在路径则输出0。
Sample Input
5 4
XXXXX
X X
XXX X
XXX
2 3 5 3
1 3 4 4
2 3 3 4
0 0 0 0
Sample Output
每一次向四个方向搜(上、下、左、右)一直搜到有麻将挡住为止。(Tip:麻将的路线可以走到棋盘外面)
代码如下:
const dx:array[1..4]of longint=(0,1,0,-1); dy:array[1..4]of longint=(1,0,-1,0); var i,j,head,tail,n,m,qx,qy,px,py:longint; state:array[-1..10000,1..2]of longint; father:array[-1..100,-1..100]of longint; f:array[-1..10000]of integer; a:array[-1..100,-1..100]of char; function pd(x,y:longint):boolean; begin pd:=not(true); if (x>m+1)or(x<0)or(y>n+1)or(y<0) then exit; if a[x,y]='X' then exit; if f[head]+1<=f[father[x,y]] then pd:=true; end; procedure try(x,y:longint); begin inc(tail); state[tail,1]:=dx[x]*y+state[head,1]; state[tail,2]:=dy[x]*y+state[head,2]; father[state[tail,1],state[tail,2]]:=tail; f[tail]:=f[head]+1; if (state[tail,1]=qx)and(state[tail,2]=qy) then begin writeln(f[tail]); head:=0; exit; end; if not(pd(state[tail,1]+dx[x],state[tail,2]+dy[x])) then exit; try(x,y+1); end; procedure bfs; var i:longint; begin head:=0; tail:=1; state[1,1]:=px; state[1,2]:=py; f[1]:=0; father[px,py]:=1; repeat inc(head); for i:=1 to 4 do if pd(state[head,1]+dx[i],state[head,2]+dy[i]) then begin try(i,1); if head=0 then exit; end; until head>=tail; writeln(0); end; begin readln(n,m); for i:=1 to m do begin for j:=1 to n do read(a[i,j]); readln; end; while 1=1 do begin fillchar(f,sizeof(f),$7f div 2); readln(py,px,qy,qx); if (px=0)and(0=py)and(0=qx)and(0=qy) then break; a[qx,qy]:=' '; bfs; a[qx,qy]:='X'; fillchar(state,sizeof(state),#0); fillchar(father,sizeof(father),#0); end; end.
相关文章推荐
- 麻将游戏(ssl 1786)
- SSL JudgeOnline 2322——运输
- SSL JudgeOnline 1015——一元三次方程求解
- SSL JudgeOnline 1357——有重复元素的全排列
- SSL JudgeOnline 1069——比赛安排
- SSL JudgeOnline 1198——求逆序对数
- SSL JudgeOnline 1457——翻币问题
- 加法最大【SSL JudgeOnline 1595】
- SSL JudgeOnline 2253——新型计算器
- SSL JudgeOnline 1194——最佳乘车
- SSL JudgeOnline 2278——Oliver的救援
- 乘积最大【SSL JudgeOnline 1007】
- SSL JudgeOnline 1082——导弹拦截
- Loi Online Judge 47. 「Loi test 2017.5.31」换数游戏
- SSL JudgeOnline 2277——最少转弯问题
- SSL JudgeOnline 1296——x^n次幂
- 打包 【SSL JudgeOnline 2294】
- SSL JudgeOnline 1668——小车载人问题
- 砝码称重 【SSL JudgeOnline 1072】
- SSL JudgeOnline 1868——谁是组长