又A了一道BZOJ上的题真是开心。。
1003: [ZJOI2006]物流运输trans
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 3449 Solved: 1410
[ Submit][ Status]
Description
物流公司要把一批货物从码头A运到码头B。由于货物量比较大,需要n天才能运完。货物运输过程中一般要转停好几个码头。物流公司通常会设计一条固定的运输路线,以便对整个运输过程实施严格的管理和跟踪。由于各种因素的存在,有的时候某个码头会无法装卸货物。这时候就必须修改运输路线,让货物能够按时到达目的地。但是修改路线是一件十分麻烦的事情,会带来额外的成本。因此物流公司希望能够订一个n天的运输计划,使得总成本尽可能地小。
Input
第一行是四个整数n(1<=n<=100)、m(1<=m<=20)、K和e。n表示货物运输所需天数,m表示码头总数,K表示每次修改运输路线所需成本。接下来e行每行是一条航线描述,包括了三个整数,依次表示航线连接的两个码头编号以及航线长度(>0)。其中码头A编号为1,码头B编号为m。单位长度的运输费用为1。航线是双向的。再接下来一行是一个整数d,后面的d行每行是三个整数P( 1 < P < m)、a、b(1 < = a < = b < = n)。表示编号为P的码头从第a天到第b天无法装卸货物(含头尾)。同一个码头有可能在多个时间段内不可用。但任何时间都存在至少一条从码头A到码头B的运输路线。
Output
包括了一个整数表示最小的总成本。总成本=n天运输路线长度之和+K*改变运输路线的次数。
Sample Input
1 2 1
1 3 3
1 4 2
2 3 2
2 4 4
3 4 1
3 5 2
4 5 2
4
2 2 3
3 1 1
3 3 3
4 4 5
Sample Output
HINT
前三天走1-4-5,后两天走1-3-5,这样总成本为(2+2)*3+(3+2)*2+10=32
嗯。。就是最短路+DP 这样直奔主题真的大丈夫?
设f[i]是到i秒为止的最小花费
f[i]=min(f[j]+[从第i+1秒到第j秒始终存在的最短路]*(i-j+1)) 0<=j<i
然后就可以愉快地AC了。。
const shuru='trans.in';
shuchu='trans.out';
INF=1 shl 25;
var hash:array[0..21,0..101] of boolean;
inq,ok:Array[0..21] of boolean;
headlist:array[0..21] of longint;
next,w,t:Array[0..10000] of longint;
step,front,finish,p,x,y,z,num,n,m,k,e,i,j:longint;
queue:Array[0..10000] of longint;
d:array[0..20] of longint;
f:Array[-10..101] of longint;
procedure memset(x,y:longint);
var i,j:longint;
begin
front:=0; finish:=1;
queue[1]:=1;
for i:=1 to m do d[i]:=INF;
d[1]:=0;
fillchar(ok,sizeof(ok),true);
fillchar(inq,sizeof(inq),false);
inq[1]:=true;
for i:=1 to m do
for j:=x to y do
ok[i]:=ok[i] and hash[i,j];
end;
procedure init;
begin
readln(n,m,k,e);
for i:=1 to m do headlist[i]:=-1;
for i:=1 to e do
begin
readln(X,y,z);
inc(num);
next[num]:=headlist[x];
headlist[x]:=num;
t[num]:=y;
w[num]:=z;
inc(num);
next[num]:=headlist[y];
headlist[y]:=num;
t[num]:=x;
w[num]:=z;
end;
readln(p);
fillchar(hash,sizeof(hash),true);
for i:=1 to p do
begin
readln(X,y,z);
for j:=y to z do hash[x,j]:=false;
end;
end;
Function SPFA(x,y:longint):longint;
var i:longint;
begin
memset(x,y);
while (front<finish) do
begin
inc(front);
step:=queue[front];
inq[step]:=false;
i:=headlist[step];
while i<>-1 do
begin
if ok[t[i]] then
if d[t[i]]>d[step]+w[i] then begin
d[t[i]]:=d[step]+w[i];
if not(inq[t[i]]) then begin
inq[t[i]]:=true;
inc(finish);
queue[finish]:=t[i];
end;
end;
i:=next[i];
end;
end;
if d[m]=INF then exit(INF);
exit((y-x+1)*d[m]);
end;
Function min(a,b:longint):longint;
begin
if a<b then exit(a);
exit(b);
end;
Procedure main;
begin
init;
f[0]:=-k;
for i:=1 to n do
begin
f[i]:=INF;
for j:=0 to i-1 do
f[i]:=min(f[i],f[j]+SPFA(j+1,i)+k);
end;
writeln(f[n]);
end;
begin
main;
end.