您的位置:首页 > 其它

Usaco 2007 Dec silver 穿越泥地

2017-01-17 16:41 183 查看

穿越泥地 

Description

清早6:00,Farmer John就离开了他的屋子,开始了他的例行工作:为贝茜挤奶。前一天晚上,整个农场刚经受过一场瓢泼大雨的洗礼,于是不难想见,FJ现在面对的是一大片泥泞的土地。FJ的屋子在平面坐标(0, 0)的位置,贝茜所在的牛棚则位于坐标(X,Y) (-500 <= X <= 500; -500 <= Y <= 500)处。当然咯,FJ也看到了地上的所有N(1 <= N <= 10,000)个泥塘,第i个泥塘的坐标为(A_i, B_i) (-500 <= A_i
<= 500;-500 <= B_i <= 500)。每个泥塘都只占据了它所在的那个格子。

Farmer John自然不愿意弄脏他新买的靴子,但他同时想尽快到达贝茜所在的位置。为了数那些讨厌的泥塘,他已经耽搁了一些时间了。如果Farmer John只能平行于坐标轴移动,并且只在x、y均为整数的坐标处转弯,那么他从屋子门口出发,最少要走多少路才能到贝茜所在的牛棚呢?你可以认为从FJ的屋子到牛棚总是存在至少一条不经过任何泥塘的路径。

Input

* 第1行: 3个用空格隔开的整数:X,Y 和 N

* 第2..N+1行: 第i+1行为2个用空格隔开的整数:A_i 和 B_i

Output

* 第1行: 输出1个整数,即FJ在不踏进泥塘的情况下,到达贝茜所在牛棚所需要走过的最小距离

Sample Input

1 2 7

0 2

-1 3

3 1

1 1

4 2

-1 1

2 2


Sample Output

11


Hint

样例解释:

贝茜所在牛棚的坐标为(1, 2)。Farmer John能看到7个泥塘,它们的坐标分

别为(0, 2)、(-1, 3)、(3, 1)、(1, 1)、(4, 2)、(-1, 1)以及(2, 2)。

以下为农场的简图:(*为FJ的屋子,B为贝茜呆的牛棚)

4  .  .  . . . . . . 

3  . M . . . . . . 
2  .  . M B M . M . 

1  . M . M . M . . 

0  . . * . . . . . 

-1 . . . . . . . . 

   -2-1 0 1 2 3 4 5 

Farmer John的最佳路线是:(0, 0),(-1, 0),(-2, 0),(-2, 1),(-2, 2),(-2, 3),(-2, 4),(-1, 4),(0, 4),(0, 3),(1, 3),(1, 2)。

题解:

直接暴力宽搜.....

参考程序:



var     x,y,n,t1,t2,l,r,i:longint;
a:array[-1000..1000,-1000..1000]of longint;
data:array[1..1000000,1..3]of longint;
f1:array[1..4]of longint=(-1,0,1,0);
f2:array[1..4]of longint=(0,1,0,-1);
begin
readln(x,y,n);
for i:=1 to n do
begin
readln(t1,t2);
a[t1,t2]:=1;
end;
l:=0;
r:=1;
while l<r do
begin
inc(l);
for i:=1 to 4 do
if a[data[l,1]+f1[i],data[l,2]+f2[i]]=0 then
begin
a[data[l,1]+f1[i],data[l,2]+f2[i]]:=1;
inc(r);
data[r,1]:=data[l,1]+f1[i];
data[r,2]:=data[l,2]+f2[i];
data[r,3]:=data[l,3]+1;
if (data[r,1]=x)and(data[r,2]=y) then
begin
writeln(data[r,3]);
exit;
end;
end;
end;
end.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: