JOZO 火车月票

 

小方乘车

jozo.exe/jozo.in/jozo.out

题意描述：

无家可归的小方买了一张火车月票，这样他就可以躺在车厢里梦想未来的美好生活了。

已知所有的火车站，连接火车站的铁路和它们的长度（也就是火车开完这条铁路要多少时间）。铁路是双向的，而且无论沿着哪个方向开，所需时间都是相同的。

你还知道所有火车的出发时间和它们经过的车站，火车每到达一个车站都会停一停。

开始时（时刻1）小方在车站1，他必须在时刻T1到T2这个区间内回到车站1（他也可以在时刻T1以前回到车站1然后安静地等到时刻T1）。如果在同一时刻同一车站有两辆火车，他不需花任何时间就可以从一辆车跳到另一辆上。

请你写一个程序，选择一条旅行路径使得小方在车站等车的时间最少。

 

输入文件(jozo.in)：

输入文件的第一行有5个整数N，P，V，T1，T2，2<=N<=1000，1<=V<=1000，1<=T1<=T2<=50,000。N表示车站的数目，P是铁路的数目，V是火车的数目，T1和T2的意思在前面已经说过了。

接下来的P行，每行表示一条铁路。每行有三个整数S1，S2和T。表示火车从S1开到S2（反之亦然）需要T秒，1<=T<=600。

接下来的V行，每行包含一辆火车的信息。第一个整数T0表示火车的出发时间，第二个数NS表示该火车的路径上有多少车站（包括起始站和终点站），1<=NS<=1000。后面的NS个数按照顺序列出了火车将要经过的车站。火车到达终点站就停在那里不动了，所有的乘客必须离开火车。

同一行的所有数据都用空格隔开。

 

输出文件(jozo.out):

最少的等车时间。

输入样例：

4 4 3 30 35

1 2 5

2 3 2

2 4 7

3 4 3

2 4 1 2 4 3

14 4 3 4 2 3

28 3 3 2 1

 

输出样例：

6

 

 

 

先按每辆火车到达的时间排序，然后dp即可.......

当然这样是N^2的，自然过不了，所以我们用LAST优化，LAST[I]表示JOZO到达第I个车站的前一个车站（也就是JOZO从哪一个车站来的）的最晚时间，这样的N^2自然很快了。

 

 

program jozo; type re=record pre,now,time:longint; end; var i,j,k,l,n,m,p,v,t1,t2,t,tot,aa,ans:longint; a:array[1..500000]of re; w:array[1..1000,1..1000]of longint; f:array[1..1000,0..50000]of longint; last:array[1..1000]of longint; procedure qsort(l,r:longint); var i,j,x:longint; y:re; begin i:=l;j:=r;x:=a[(l+r)>>1].time; repeat while a[i].time<x do inc(i); while a[j].time>x do dec(j); if i<=j then begin y:=a[i];a[i]:=a[j];a[j]:=y; inc(i);dec(j); end; until i>j; if l<j then qsort(l,j); if i<r then qsort(i,r); end; begin assign(input,'jozo.in'); reset(input); assign(output,'jozo.out'); rewrite(output); read(n,p,v,t1,t2); for i:=1 to p do begin read(j,k); read(w[j,k]); w[k,j]:=w[j,k]; end; for i:=1 to v do begin read(t,m); read(l); inc(tot); //maybe wrong!!! a[tot].now:=l; a[tot].time:=t; for j:=2 to m do begin read(k); inc(tot); a[tot].pre:=l; a[tot].now:=k; a[tot].time:=a[tot-1].time+w[l,k]; l:=k; end; readln; end; qsort(1,tot); fillchar(f,sizeof(f),127); f[1,0]:=0; for i:=1 to tot do if a[i].pre<>0 then begin for j:=last[a[i].now]+1 to a[i].time do f[a[i].now,j]:=f[a[i].now,j-1]+1; if a[i].time-w[a[i].pre,a[i].now]>=last[a[i].pre] then aa:=f[a[i].pre,last[a[i].pre]]+a[i].time-w[a[i].pre,a[i].now]-last[a[i].pre] else aa:=f[a[i].pre,a[i].time-w[a[i].pre,a[i].now]]; if aa<f[a[i].now,a[i].time] then f[a[i].now,a[i].time]:=aa; last[a[i].now]:=a[i].time; end; ans:=maxlongint; for i:=t1 to t2 do if ans>f[1,i] then ans:=f[1,i]; writeln(ans-1); close(input); close(output); end.  

 

 

顺便说一句，这个跑得比xqz和ld要快一些，为什么吗？我也不知道......