热浪

热浪

Time Limit:10000MS Memory Limit:65536K
Total Submit:47 Accepted:42
Case Time Limit:1000MS

Description

德克萨斯纯朴的民眾们这个夏天正在遭受巨大的热浪！！！他们的德克萨斯长角牛吃起来不错，可是他们并不是很擅长生產富含奶油的乳製品。FarmerJohn此时以先天下之忧而忧，后天下之乐而乐的精神，身先士卒地承担起向德克萨斯运送大量的营养冰凉的牛奶的重任，以减轻德克萨斯人忍受酷暑的痛苦。
FJ已经研究过可以把牛奶从威斯康星运送到德克萨斯州的路线。这些路线包括起始点和终点先一共经过T (1 <= T <= 2,500)个城镇，方便地标号為1到T。除了起点和终点外地每个城镇由两条双向道路连向至少两个其它地城镇。每条道路有一个通过费用（包括油费，过路费等等）。考虑这个有7个城镇的地图。城镇5是奶源，城镇4是终点（括号内的数字是道路的通过费用）。
　　　　　　　　　　　　　　 [1]—-1—[3]-
　　　　　　　　　　　　　　 /　　　　　 \
　　　　　　　　　　 [3]—6—[4]—3–[3]–4
　　　　　　　　　　 /　　　　　　 /　　 /|
　　　　　　　　　　5　　　　 –[3]– –[2]- |
　　　　　　　　　　 \　　 /　　　　/　　 |
　　　　　　　　　　 [5]—7—[2]–2—[3]—
　　　　　　　　　　　　　　|　　 /
　　　　　　　　　　　　 　 [1]——
经过路线5-6-3-4总共需要花费3 (5->6) + 4 (6->3) + 3 (3->4) = 10的费用。
给定一个地图，包含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

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

Output

第一行: 一个单独的整数表示Ts到Te的最短路的长度。（不是费用麼？怎麼突然变直白了
——译者注）数据保证至少存在一条道路。

Sample Input

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

Sample Output

7

用dij求最短路

var
 map:array[0..2501,0..2501]of longint;
 check:array[0..2501]of boolean;
 dis:array[0..2501]of longint;
 i,j,ans,s,ts,te,n,x,y,t:longint;
procedure dij;
var
 u,i,j,min:longint;
begin
 for i:=1 to n do dis[i]:=map[ts,i];
 while u<>0 do
  begin
   u:=0;
   min:=maxlongint;
   for i:=1 to n do
    if (not check[i])and(dis[i]<min) then
     begin
      u:=i;
      min:=dis[i];
     end;
   if u<>0 then
    begin
     check[u]:=true;
     for i:=1 to n do
      if (not check[i])and(dis[u]+map[u,i]<dis[i]) then
       dis[i]:=dis[u]+map[u,i];
    end;
  end;
end;

begin
 read(n,s,ts,te);
 fillchar(map,sizeof(map),$7f);
 {尽可能的放大一些}
 fillchar(check,sizeof(check),false);
 {不要在check【1】里面标记已经走过，因为不是在一出发}
 for i:=1 to s do
  begin
   read(x,y,t);
   map[x,y]:=t;
   map[y,x]:=t;
  end;
 dij;
 write(dis[te]);
end.