P1339 [USACO09OCT]热浪Heat Wave

题目描述

德克萨斯纯朴的民眾们这个夏天正在遭受巨大的热浪！！！他们的德克萨斯长角牛吃起来不错，可是他们并不是很擅长生產富含奶油的乳製品。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)最小的总费用。

输入输出格式

输入格式：

第一行: 4个由空格隔开的整数: T, C, Ts, Te

第2到第C+1行: 第i+1行描述第i条道路。有3个由空格隔开的整数: Rs, Re和Ci

输出格式：

一个单独的整数表示从Ts到Te的最小总费用。数据保证至少存在一条道路。

输入输出样例

输入样例#1：

7 11 5 4

2 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

输出样例#1：

7

说明

【样例说明】

5->6->1->4 (3 + 1 + 3)

spfa

var
i,j,k,l,n,m,t:longint;
list,ans:array[0..2501] of longint;
next,x,y,z:array[0..20001] of longint;
f:array[0..6201] of boolean;
p:array[0..20001] of longint;

procedure add(dep,x:longint);
begin
next[dep]:=list[x];
list[x]:=
4000
dep;
end;

procedure spfa;
var
i,head,tail,l:longint;
begin
head:=0;
tail:=1;
while head<tail do
begin
inc(head);
f[p[head-1]]:=false;
l:=list[p[head]];
while l>0 do
begin
if ans[p[head]]+z[l]<ans[y[l]] then
begin
ans[y[l]]:=ans[p[head]]+z[l];
if not f[y[l]] then
begin
f[y[l]]:=true;
inc(tail);
p[tail]:=y[l];
end;
end;
l:=next[l];
end;
end;
end;

begin
readln(n,m,k,t);
for i:=1 to m do
begin
inc(j);
readln(x[j],y[j],z[j]);
add(j,x[j]);
inc(j);
x[j]:=y[j-1];
y[j]:=x[j-1];
z[j]:=z[j-1];
add(j,x[j]);
end;
for i:=1 to n do
ans[i]:=maxlongint;
fillchar(f,sizeof(f),false);
p[1]:=k;
ans[k]:=0;
spfa;
writeln(ans[t]);
end.