Description

【問題背景】
　　LHX教主最近總困擾于前來膜拜他的人太多了，所以他給他的花園加上了一道屏障。

【問題描述】
　　可以把教主的花園附近區域抽像成一個正方形網格組成的網絡，每個網格都對應了一個坐標（均為整數，有可能為負），若兩個網格(x1, y1)，(x2, y2)有|x1 – x2| + |y1 – y2| = 1，則說這兩個網格是相鄰的，否則不是相鄰的。
　　教主在y = 0處整條直線上的網格設置了一道屏障，即所有坐標為(x, 0)的網格。當然，他還要解決他自己與內部人員的進出問題，這樣教主設置了N個入口a1, a2, …, aN可供進出，即對于y = 0上的所有網格，只有 (a1, 0)，(a2, 0)， ……， (aN, 0) 可以通過，之外的所有縱坐標為0的網格均不能通過，而對于(x, y)有y不為0的網格可以認為是隨意通過的。
　　現在教主想知道，給定M個點對(x1, y1)，(x2, y2)，并且這些點均不在屏障上，詢問從一個點走到另一個點最短距離是多少，每次只能從一個格子走到相鄰的格子。

Input
　　輸入的第1行為一個正整數N，為屏障上入口的個數。
　　第2行有N個整數，a1, a2, …, aN，之間用空格隔開，為這N個入口的橫坐標。
　　第3行為一個正整數M，表示了M個詢問。
　　接下來M行，每行4個整數x1, y1, x2, y2，有y1與y2均不等于0，表示了一個詢問從(x1, y1)到(x2, y2)的最短路。

Output
　　輸出共包含m行，第i行對于第i個詢問輸出從(x1, y1)到(x2, y2)的最短路距離是多少。

Sample Input
2
2 -1
2
0 1 0 -1
1 1 2 2

Sample Output
4
2

Data Constraint

Hint

【數據規模】
　　對于20%的數據，有n，m≤10，ai，xi，yi絕對值不超過100；
　　對于40%的數據，有n，m≤100，ai，xi，yi絕對值不超過1000；
　　對于60%的數據，有n，m≤1000，ai，xi，yi絕對值不超過100000；
　　對于100%的數據，有n，m≤100000，ai，xi，yi絕對值不超過100000000。
.
.
.
.
.
.
.
.

分析

題目大意就是在一個平面直角坐標系中x軸上是一道屏障，但上面有n個開頭，要求兩個點的距離
顯然，這題可以分類討論來做
①兩個點的y坐標同號，直接求曼哈頓距離輸出
如果不行，則二分一個在中間的開口
②如果這個開口位于兩個點中間，求出兩個點分別到開口的曼哈頓距離相加并輸出
③否則判斷一下它距離哪一個端點近，就由哪里繞過去
雖然此時的pos值不一定準確，但十分接近，真實值一定出現在pos-1，pos，pos+1中，求最小值輸出就好了
.
.
.
.
.
.
.

程序：

uses math; var x1,y1,x2,y2,i,n,m,pos:longint; a:array[-1..100002]of longint; t1,t2,t3:int64;procedure swap(x,y:longint); var xc:longint; beginxc:=x1;x1:=x2;x2:=xc; end;function find(x:longint):longint; var l,r,mid,k:longint; beginl:=1;r:=n;k:=n;while l<=r dobeginmid:=(l+r) div 2;if a[mid]<x then l:=mid+1 elsebeginr:=mid-1;k:=mid;end;end;exit(k); end;procedure kp(l,r:longint); var i,j,mid:longint; beginif l>=r then exit;i:=l;j:=r;mid:=a[(i+j) div 2];repeatwhile a[i]<mid do inc(i);while a[j]>mid do dec(j);if i<=j thenbegina[-1]:=a[i];a[i]:=a[j];a[j]:=a[-1];inc(i);dec(j);end;until i>j;kp(l,j);kp(i,r); end;beginreadln(n);for i:=1 to n doread(a[i]);kp(1,n);readln;readln(m);for i:=1 to m dobeginreadln(x1,y1,x2,y2);if (y1<0)and(y2<0)or(y1>0)and(y2>0) thenbeginwriteln(abs(x1-x2)+abs(y1-y2));continue;end;if x1>x2 then swap(x1,x2);pos:=find((x1+x2) div 2);if (a[pos]>=x1)and(x2>=a[pos]) then writeln(abs(x1-x2)+abs(y1-y2)) elsebegint1:=abs(a[pos]-x1)+abs(a[pos]-x2)+abs(y1-y2);t2:=200000000;t3:=200000000;if pos>1 then t2:=abs(a[pos-1]-x1)+abs(a[pos-1]-x2)+abs(y1-y2);if pos<n then t3:=abs(a[pos+1]-x1)+abs(a[pos+1]-x2)+abs(y1-y2);t1:=min(t1,t2);t1:=min(t1,t3);writeln(t1);end;end; end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9499978.html

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

以上是生活随笔為你收集整理的教主的花园的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。