1245

1245. 【Usaco 2007 Dec silver】穿越泥地 (Standard IO)

Time Limits: 1000 ms  Memory Limits: 65536 KB  Detailed Limits  

Goto ProblemSet

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 70 2-1 33 11 14 2-1 12 2

Sample Output

11

Data Constraint

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 . . . . . . 
Y 2 . . M B M . M . 
1 . M . M . M . . 
0 . . * . . . . . 
-1 . . . . . . . . 
-2-1 0 1 2 3 4 5 

X

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)。
同样附一张简图：
4 ******* . . . . 
3 * M . * . . . . 
Y 2 * . M B M . M . 
1 * M . M . M . . 
0 ***** . . . . . 
-1 . . . . . . . . 
-2-1 0 1 2 3 4 5 

X

var        a,b,c,d,e,f,q1,q2,i:longint;        p:array[-501..501,-501..501]of boolean;        v:array[1..1000000,1..3]of longint;const r:array[1..4,1..2]of integer=((-1,0),(0,-1),(1,0),(0,1));begin        readln(a,b,c);        for d:=1 to c do        begin                readln(e,f);                p[e,f]:=true;        end;        q1:=0;        q2:=1;        v[q2,1]:=0;        v[q2,2]:=0;        v[q2,3]:=0;        p[0,0]:=true;        while q1<q2 do        begin                inc(q1);                for i:=1 to 4 do                begin                        if (p[v[q1,1]+r[i,1],v[q1,2]+r[i,2]]=false)and                        ((v[q1,1]+r[i,1])>=-500)and((v[q1,1]+r[i,1])<=500)                        and((v[q1,2]+r[i,2])>=-500)and((v[q1,2]+r[i,2])<=500) then                        begin                                inc(q2);                                v[q2,1]:=v[q1,1]+r[i,1];                                v[q2,2]:=v[q1,2]+r[i,2];                                v[q2,3]:=v[q1,3]+1;                                p[v[q2,1],v[q2,2]]:=true;                                if (v[q2,1]=a)and(v[q2,2]=b) then                                begin                                        writeln(v[q2,3]);                                        halt;                                end;                        end;                end;        end;end.