SPFA+SLF（链式队列） Codevs p1557热浪

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 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

分析

裸最短路；

代码如下

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.

好艰难。。。考毁了，咋办！！！