SPFA+SLF(链式队列) Codevs p1557热浪
2015-10-12 16:22
369 查看
Codevs p1557热浪
题目描述 Description
德克萨斯纯朴的民眾们这个夏天正在遭受巨大的热浪!!!他们的德克萨斯长角牛吃起来不错,可是他们并不是很擅长生產富含奶油的乳製品。Farmer John此时以先天下之忧而忧,后天下之乐而乐的精神,身先士卒地承担起向德克萨斯运送大量的营养冰凉的牛奶的重任,以减轻德克萨斯人忍受酷暑的痛苦。FJ已经研究过可以把牛奶从威斯康星运送到德克萨斯州的路线。这些路线包括起始点和终点先一共经过T (1 <= T <= 2,500)个城镇,方便地标号為1到T。除了起点和终点外地每个城镇由两条双向道路连向至少两个其它地城镇。每条道路有一个通过费用(包括油费,过路费等等)。
给定一个地图,包含C (1 <= C <= 6,200)条直接连接2个城镇的道路。每条道路由道路的起点Rs,终点Re (1 <= Rs <= T; 1 <= Re <= T),和花费(1 <= Ci <= 1,000)组成。求从起始的城镇Ts (1 <= Ts <= T)到终点的城镇Te(1 <= Te <= T)最小的总费用。
输入输出
输入描述 Input Description
第一行: 4个由空格隔开的整数: T, C, Ts, Te第2到第C+1行: 第i+1行描述第i条道路。有3个由空格隔开的整数: Rs, Re和Ci
输出描述 Output Description
一个单独的整数表示从Ts到Te的最小总费用。数据保证至少存在一条道路。样例 Sample
样例输入 Sample Input
7 11 5 42 4 2
1 4 3
7 2 2
3 4 3
5 7 5
7 3 3
6 1 1
6 3 4
2 4 3
5 6 3
7 2 1
样例输出 Sample Output
7分析
裸最短路;代码如下
program p1557; type point=^rec; rec=record e,v:longint; s:point; end; queue=^rec2; rec2=record e:longint; s:queue; end; var n,m,ts,te,i,j,s,e,v:longint; dist:array[1..10000] of longint; used:array[1..10000] of boolean; vertex:array[1..10000] of point; procedure insert(s,e,v:longint); var p:point; begin new(p); p^.e:=e; p^.v:=v; p^.s:=vertex[s]; vertex[s]:=p; end; procedure spfa; var head,rear,qx,q:queue; p:point; i:longint; begin for i:=1 to n do begin dist[i]:=maxlongint; used[i]:=false; end; used[ts]:=true; dist[ts]:=0; new(head); new(rear); head^.e:=ts; head^.s:=rear; rear^.e:=-1; rear^.s:=nil; while head^.e<>-1 do begin qx:=head; p:=vertex[head^.e]; head:=head^.s; while p<>nil do begin if dist[p^.e]>dist[qx^.e]+p^.v then begin dist[p^.e]:=dist[qx^.e]+p^.v; if not used[p^.e] then begin used[p^.e]:=true; if (head^.e=-1) or (dist[p^.e]<dist[head^.e]) then begin new(q); q^.e:=p^.e; q^.s:=head; head:=q; end else begin q:=rear; new(rear); rear^.e:=-1; q^.e:=p^.e; q^.s:=rear; end; end; end; p:=p^.s; end; used[qx^.e]:=false; dispose(qx); end; end; begin readln(n,m,ts,te); for i:=1 to m do begin read(s,e,v); insert(s,e,v); insert(e,s,v); end; spfa; write(dist[te]); end.