tyvj P1117 拯救ice-cream

背景 Background

天好热……Tina顶着那炎炎的烈日，向Ice-cream home走去……
可是……停电了……
冰淇淋们躺在Ice-cream home的冰柜里，慢慢地……慢慢地……融化…………
你说，她能赶在冰淇淋融化完之前赶到Ice-cream home去吗？

描述 Description
给你一张坐标图，s为Tina的初始位置，m为Ice-cream home的位置，‘.’为路面，Tina在上面，每单位时间可以移动一格；‘#’为草地，Tina在上面，每两单位时间可以移动一格（建议不要模仿—毕竟Tina还小）；‘o’是障碍物，Tina不能在它上面行动。也就是说，Tina只能在路面或草地上行走，必须绕过障碍物，并到达冰淇淋店。但是…………不保证到达时，冰淇淋还未融化，所以……就请聪明的你……选择最佳的方案啦…………如果，Tina到的时候，冰淇淋已经融化完了，那她可是会哭的。

输入格式 Input Format
依次输入冰淇淋的融化时间t(0<t<1000)，坐标图的长x,宽y(5<=x,y<=25){太长打起来好累……}，和整张坐标图。

输出格式 Output Format
判断按照最优方案是否可以赶在冰淇淋融化之前到达冰淇淋店（注：当T=最优方案所用时间，则判断为未赶到），如赶到，输出所用时间；如未赶到，输出Tina的哭声——“55555”（不包括引号）。

样例输入 Sample Input

11
10
8
......s...
..........
#ooooooo.o
#.........
#.........
#.........
#.....m...
#.........

样例输出 Sample Output

10

时间限制 Time Limitation
各个测试点1s

分析：一个二维的宽搜题目………………

program p1117;
const dx:array[1..4]of integer=(1,-1,0,0);
dy:array[1..4]of integer=(0,0,-1,1);
var
b:array[0..10000]of record
x,y:longint;
end;
f:array[0..30,0..30]of longint;
a:array[0..30,0..30]of char;
time,n,m,x1,y1,x2,y2:longint;

procedure init;
var i,j:longint;
begin
readln(time);
readln(n);
readln(m);
fillchar(a,sizeof(a),'$');
filldword(f,sizeof(f)div 4,maxlongint);
for i:=1 to m do //一开始写的是for i:=1 to n do ^^^^^ for j:=1 to m do 导致结果错误，囧……
begin
for j:=1 to n do
begin
read(a[i,j]);
if a[i,j]='s' then
begin
x1:=i;
y1:=j;
end;
if a[i,j]='m' then
begin
x2:=i;
y2:=j;
end;
end;
readln;
end;
end;

procedure bfs;
var i,j,head,tail:longint;
begin
head:=1;
tail:=1;
f[x1,y1]:=0;
b[head].x:=x1;
b[head].y:=y1;
while head<=tail do
begin
for i:=1 to 4 do
begin
if (a[b[head].x+dx[i],b[head].y+dy[i]]='.')
or(a[b[head].x+dx[i],b[head].y+dy[i]]='m') then
if f[b[head].x+dx[i],b[head].y+dy[i]]>f[b[head].x,b[head].y]+1 then
begin
f[b[head].x+dx[i],b[head].y+dy[i]]:=f[b[head].x,b[head].y]+1;
inc(tail);
b[tail].x:=b[head].x+dx[i];
b[tail].y:=b[head].y+dy[i];
end;
if (a[b[head].x+dx[i],b[head].y+dy[i]]='#') then
if (f[b[head].x+dx[i],b[head].y+dy[i]]>f[b[head].x,b[head].y]+2) then
begin
f[b[head].x+dx[i],b[head].y+dy[i]]:=f[b[head].x,b[head].y]+2;
inc(tail);
b[tail].x:=b[head].x+dx[i];
b[tail].y:=b[head].y+dy[i];
end;
end;
inc(head);
end;
end;

begin
init;
bfs;
writeln(f[x2,y2]);
end.