复仇者vsX战警之训练

【2017.7.10普及】复仇者vsX战警之训练（train）
(File IO): input:attack.in output:attack.out

时间限制: 1000 ms 空间限制: 262144 KB 具体限制

Goto ProblemSet

题目描述

月球上反凤凰装甲在凤凰之力附身霍普之前，将凤凰之力打成五份，分别附身在X战警五大战力上面辐射眼、白皇后、钢力士、秘客和纳摩上（好尴尬，汗）。
在凤凰五使徒的至高的力量的威胁下，复仇者被迫逃到昆仑的一座山上，因为凤凰五使徒监视不到那里。
霍普加入了复仇者，为了磨练自己，她在n个山峰之间跳跃。
这n个山峰在一条直线上，每个山峰都有不同的高度，只知道这些山峰的相对位置。霍普可以将这些山峰左右移动但不能改变他们的相对位置（要保证两两山峰间距为整数且大于等于1）。霍普要从最矮的山峰开始跳，每次跳向第一个比现在她所在的山峰高的山峰，一共跳n-1次，由于能力有限，每次跳跃的水平距离小于等于d。
霍普想知道如何移动这些山峰，使得在可以经过所有的山峰并跳到最高的山峰上的基础下，又要使最矮的山峰和最高的山峰的水平距离最远，霍普要你求出最远的水平距离。如果无论如何也不能经过所有的山峰并跳到最高的山峰上，那么输出-1。

输入

输入文件名为attack.in。
本题每个测试点有多组数据，
在第一行中有一个整数t，表示数据的数目（t<=500）
对于每组数据：
第一行包含两个整数n（1≤n≤1000）和d（1≤d≤1000000）。
下一行包含n个整数，给出n个房子的高度，以便它们应该被移动。在每个数据中，所有的高度都是唯一的。

输出

输出文件名为attack.out。
输出共t行。
对于每组数据输出最远的水平距离。如果无论如何也不能经过所有的山峰并跳到最高的山峰上，那么输出-1。

样例输入

3
4 4
20 30 10 40
5 6
20 34 54 10 15
4 2
10 20 16 13

样例输出

3
3
-1

数据范围限制

【数据说明】
对于100%的数据，1≤n≤1000,1≤d≤1000000

听了出题人的讲解，还不是很明白，只是知道这题是一道最短路问题。对于最高的在最低的右边，那么单向图的边权为D的边就是从右往左的。单向图中的每一个点与他相邻的点的边权为-1，并是从左往右的。而对于最高的在最低的左边的则反之。打个SPFA就可以了。

具体代码如下：

varv,g,biao,hs,hsd:array[1..1000] of longint;h,f:array[1..1000,1..1000] of longint;bo:boolean;i,j,n,t,d:longint;
procedure dg(k,ans:longint);
vari,j:longint;
beginfor j:=1 to g[k] dobegini:=h[k,j];if (f[k,i]<>0) and (ans+f[k,i]<v[i]) thenbeginv[i]:=ans+f[k,i];dg(i,ans+f[k,i]);end;end;
end;procedure qsort(l,r:longint);
vari,j,mid,t:longint;
begini:=l;j:=r;mid:=hsd[(i+j) div 2];repeatwhile (hsd[i]<mid) do inc(i);while (hsd[j]>mid) do dec(j);if i<=j thenbegint:=hsd[i];hsd[i]:=hsd[j];hsd[j]:=t;t:=biao[i];biao[i]:=biao[j];biao[j]:=t;inc(i);dec(j);end;until i>j;if i<r thenqsort(i,r);if l<j thenqsort(l,j);
end;
beginassign(input,'attack.in');assign(output,'attack.out');reset(input);rewrite(output);read(t);for i:=1 to t dobeginread(n,d);for j:=1 to n dobeginread(hs[j]);biao[j]:=j;end;fillchar(g,sizeof(g),0);hsd:=hs;qsort(1,n);if biao[1]<biao[n] thenbeginfor j:=2 to n dobeginf[j,j-1]:=-1;inc(g[j]);h[j,g[j]]:=j-1;end;bo:=false;for j:=2 to n dobeginif (biao[j]>biao[j-1]) thenbeginf[biao[j-1],biao[j]]:=d;inc(g[biao[j-1]]);h[biao[j-1],g[biao[j-1]]]:=biao[j];if (biao[j]-biao[j-1])>d thenbeginbo:=true;writeln(-1);break;end;endelsebeginf[biao[j],biao[j-1]]:=d;inc(g[biao[j]]);h[biao[j],g[biao[j]]]:=biao[j-1];if (biao[j-1]-biao[j])>d thenbeginbo:=true;writeln(-1);break;end;end;end;if bo thencontinue;endelsebeginfor j:=2 to n dobeginf[j-1,j]:=-1;inc(g[j-1]);h[j-1,g[j-1]]:=j;end;bo:=false;for j:=2 to n dobeginif (biao[j]>biao[j-1]) thenbeginf[biao[j],biao[j-1]]:=d;inc(g[biao[j]]);h[biao[j],g[biao[j]]]:=biao[j-1];if (biao[j]-biao[j-1])>d thenbeginbo:=true;writeln(-1);break;end;endelsebeginf[biao[j-1],biao[j]]:=d;inc(g[biao[j-1]]);h[biao[j-1],g[biao[j-1]]]:=biao[j];if (biao[j-1]-biao[j])>d thenbeginbo:=true;writeln(-1);break;end;end;end;if bo thencontinue;end;for j:=1 to n dov[j]:=maxlongint div 3;v[biao[1]]:=0;dg(biao[1],0);writeln(v[biao[n]]);end;close(input);close(output);
end.