【USACO题库】2.4.1 The Tamworth Two两只塔姆沃斯牛

题目描述

两只牛在森林里故意走丢了。农民John开始用他的专家技术追捕这两头牛。你的任务是模拟他们的行为(牛和John)。追击在10x10的平面网格内进行。一个格子可以是：一个障碍物，两头牛(它们总在一起), 或者农民John.

两头牛和农民John可以在同一个格子内(当他们相遇时)，但是他们都不能进入有障碍的格子。

一个格子可以是：

. 空地

* 障碍物

C 两头牛

F 农民John

*...*.....
......*...
...*...*..
..........
...*.F....
*.....*...
...*......
..C......*
...*.*....
.*.*......

牛在地图里以固定的方式游荡。每分钟，它们可以向前移动或是转弯。如果前方无障碍且不会离开地图，它们会按照原来的方向前进一步。否则它们会用这一分钟顺时针转90度。
农民John, 深知牛的移动方法，他也这么移动。

每次(每分钟)农民John和两头牛的移动是同时的。如果他们在移动的时候穿过对方，但是没有在同一格相遇，我们不认为他们相遇了。当他们在某分钟末在某格子相遇，那么追捕结束。开始时，John和牛都面向北方。

INPUT FORMAT

Lines 1-10:

每行10个字符，表示如上文描述的地图。

SAMPLE INPUT (file ttwo.in)

*...*.....
......*...

...*...*..
..........

...*.F....

*.....*...

...*......

..C......*

...*.*....

.*.*......

OUTPUT FORMAT

输出一个数字，表示John需要多少时间才能抓住牛们。输出0，如果John无法抓住牛。

SAMPLE OUTPUT (file ttwo.out)

49

这道题目其实非常简单，只要模拟即可，唯一的难点在于如何碰到John——me无法抓到牛的情况。当总搜索量大于（10²*4）²的时候两人还没相遇——break，输出0（因为10²是棋盘大小，乘4是因为四个方向，然后有两个人，所以还要再加个平方）
代码：

var
bz:array[0..11,0..11] of Boolean;
x1,y1,x2,y2,i,j,fx,fy,tot1,tot2,ans:Longint;
ch:char;

Procedure init;
begin
fillchar(bz,sizeof(bz),true);

for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
read(ch);
if ch='C' then
begin
x1:=i;
y1:=j;
end;
if ch='F' then
begin
x2:=i;
y2:=j;
end;
if ch='*' then bz[i,j]:=false;
end;
readln;
end;

for i:=1 to 10 do
begin
bz[0,i]:=false;
bz[i,0]:=false;
bz[11,i]:=false;
bz[i,11]:=false;
end;

bz[0,0]:=false;
bz[11,0]:=false;
bz[0,11]:=false;
end;

Procedure work;
begin
fx:=1;
fy:=1;

while true do
begin
inc(ans);
case fx of
1:if not bz[x1-1,y1] then inc(fx) else dec(x1);
2:if not bz[x1,y1+1] then inc(fx) else inc(y1);
3:if not bz[x1+1,y1] then inc(fx) else inc(x1);
4:if not bz[x1,y1-1] then inc(fx) else dec(y1);
end;

case fy of
1:if not bz[x2-1,y2] then inc(fy) else dec(x2);
2:if not bz[x2,y2+1] then inc(fy) else inc(y2);
3:if not bz[x2+1,y2] then inc(fy) else inc(x2);
4:if not bz[x2,y2-1] then inc(fy) else dec(y2);
end;

if fx<>4 then fx:=fx mod 4;
if fy<>4 then fy:=fy mod 4;

if (x1=x2) and (y1=y2) then
begin
writeln(ans);
exit;
end;

if ans>160000 then
begin
writeln(0);
exit;
end;
end;
end;

begin
init;

work;
end.

但是其实可以不用这样子判断，可以加一个六维数组，判断当前第一个人坐标，以及第二个人坐标，还有两个人的方向，如果这个状态被遇到两次则可以break（真不明白为什么上面6ms，加了这个反而0ms...）

var
f:array[1..10,1..10,1..10,1..10,1..4,1..4] of Boolean;
bz:array[0..11,0..11] of Boolean;
x1,y1,x2,y2,p1,q1,p2,q2,i,j,fx,fy,ans:Longint;
ch:char;
begin
fillchar(bz,sizeof(bz),true);
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
read(ch);
if ch='C' then
begin
x1:=i;
y1:=j;
end;
if ch='F' then
begin
x2:=i;
y2:=j;
end;
if ch='*' then bz[i,j]:=false;
end;
readln;
end;

fx:=1;
fy:=1;
p1:=x1;
q1:=y1;
p2:=x2;
q2:=y2;

while true do
begin
inc(ans);
x1:=p1; q1:=y1; x2:=p2; y2:=q2;
case fx of
1:if bz[x1-1,y1] and (x1>1)  then dec(x1) else inc(fx);
2:if bz[x1,y1+1] and (y1<10) then inc(y1) else inc(fx);
3:if bz[x1+1,y1] and (x1<10) then inc(x1) else inc(fx);
4:if bz[x1,y1-1] and (y1>1)  then dec(y1) else inc(fx);
end;

case fy of
1:if bz[x2-1,y2] and (x2>1)  then dec(x2) else inc(fy);
2:if bz[x2,y2+1] and (y2<10) then inc(y2) else inc(fy);
3:if bz[x2+1,y2] and (x2<10) then inc(x2) else inc(fy);
4:if bz[x2,y2-1] and (y2>1)  then dec(y2) else inc(fy);
end;

if fx<>4 then fx:=fx mod 4;
if fy<>4 then fy:=fy mod 4;

if (x1=x2) and (y1=y2) then
begin
writeln(ans);
exit;
end;

if f[x1,y1,x2,y2,fx,fy]=false then
begin
f[x1,y1,x2,y2,fx,fy]:=true;
p1:=x1; q1:=y1; p2:=x2; q2:=y2;
end
else
begin
writeln(0);
halt;
end;
end;
end.