P1074 - 武士风度的牛
From price Normal (OI)
总时限：9s 内存限制：128MB |
背景 Background
农民John有很多牛，他想交易其中一头被Don称为The Knight的牛。这头牛有一个独一无二的超能力，在农场里像Knight一样地跳（就是我们熟悉的象棋中马的走法）。虽然这头神奇的牛不能跳到树上和石头上，但是它可以在牧场上随意跳，我们把牧场用一个x，y的坐标图来表示。 |
描述 Description
这头神奇的牛像其它牛一样喜欢吃草，给你一张地图，上面标注了The Knight的开始位置，树、灌木、石头以及其它障碍的位置，除此之外还有一捆草。现在你的任务是，确定The Knight要想吃到草，至少需要跳多少次。The Knight的位置用'K'来标记，障碍的位置用'*'来标记，草的位置用'H'来标记。
这里有一个地图的例子：
11 | . . . . . . . . . .
10 | . . . . * . . . . .
9 | . . . . . . . . . .
8 | . . . * . * . . . .
7 | . . . . . . . * . .
6 | . . * . . * . . . H
5 | * . . . . . . . . .
4 | . . . * . . . * . .
3 | . K . . . . . . . .
2 | . . . * . . . . . *
1 | . . * . . . . * . .
0 ----------------------
1
0 1 2 3 4 5 6 7 8 9 0
The Knight 可以按照下图中的A,B,C,D...这条路径用5次跳到草的地方（有可能其它路线的长度也是5）：
11 | . . . . . . . . . .
10 | . . . . * . . . . .
9 | . . . . . . . . . .
8 | . . . * . * . . . .
7 | . . . . . . . * . .
6 | . . * . . * . . . F<
5 | * . B . . . . . . .
4 | . . . * C . . * E .
3 | .>A . . . . D . . .
2 | . . . * . . . . . *
1 | . . * . . . . * . .
0 ----------------------
1
0 1 2 3 4 5 6 7 8 9 0
|
输入格式 InputFormat
第一行： 两个数，表示农场的列数(<=150)和行数(<=150)
第二行..结尾: 如题目描述的图。
|
输出格式 OutputFormat
一个数，表示跳跃的最小次数。 |
样例输入 SampleInput [复制数据]
10 11
..........
....*.....
..........
...*.*....
.......*..
..*..*...H
*.........
...*...*..
.K........
...*.....*
..*....*..
|
样例输出 SampleOutput [复制数据]
|
数据范围和注释 Hint
Hint：这类问题可以用一个简单的先进先出表（队列）来解决。 |
时间限制 TimeLimitation
1s |
来源 Source
usaco nov09 Cu
翻译by pricez
|
|
program tyvj1074;
type node=record
a,b,time:integer;
end;
var
d:array[1..8] of integer=(1,2,2,1,-1,-2,-2,-1);
l:array[1..8] of integer=(2,1,-1,-2,-2,-1,1,2);
a:array[-3..153,-3..153] of char;
q:array[1..22500] of node;
head,tail,n,m,i,j,mi,mj,x,y,m1,m2:longint;
k:node;st:string;
procedure push(x,y,k:integer);
begin
inc(head);
q[head].a:=x;q[head].b:=y;q[head].time:=k;
end;
function pop:node;
begin
pop:=q[tail];
inc(tail);
end;
begin
fillchar(a,sizeof(a),'*');
head:=0;tail:=1;
readln(n,m);
for i:=1 to m do begin
readln(st);
for j:=1 to n do begin
a[i,j]:=st[j];
if a[i,j]='K' then begin
m1:=i;m2:=j;
end;
if a[i,j]='H' then begin
mi:=i;mj:=j;
a[i,j]:='.';
end;
end;
end;
push(m1,m2,0);
while head>=tail do begin
k:=pop;
if (k.a=mi) and (k.b=mj) then begin
writeln(k.time);
halt;
end;
for i:=1 to 8 do
if a[k.a+d[i],k.b+l[i]]='.' then begin
push(k.a+d[i],k.b+l[i],k.time+1);
a[k.a+d[i],k.b+l[i]]:='*';
end;
end;
end.
