Usaco 2007 Dec silver 穿越泥地

穿越泥地 

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.