題目描述

小C終於被小X感動了，於是決定與他看電影，然而小X距離電影院非常遠，現在假設每條道路需要花費小X的時間為1，由於有數以萬計的好朋友沿路祝賀，導致小X在通過某些路不得不耗費1的時間來和他們聊天，儘管他希望儘早見到小C，所以他希望找到一條最快時間到達電影院的路。
一開始小X在1號點，共有N個點，M條路，電影院為T號點。

輸入

第一行3個正整數，分別為n，m，t
以下m行，每行3個數，表示連線的編號以及權值
（注意，可能會有重邊）

輸出

一行一個數，表示1到t的最短路

思路

spfa+優化
重點就在優化這了
用鄰接表儲存邊，可以在spfa時減少判斷次數
然後就可以飛起了

   type
  arr=record
        x,y,w,next:longint;
      end;
var
  edge:array[0..10000000] of arr;
  ls,t,state:array[0..10000000] of int64;
  exits:array[0..1000000] of boolean;
  i,j,k,n,m,q,p,o,s,l:longint;
procedure spfa;
var
  head,tail,i,j:longint;
begin
  state[1]:=0;
  head:=0; tail:=1;
  exits[1]:=true;
  t[1]:=1;
  repeat
 

    inc(head);
    i:=ls[t[head]];
    while i<>0 do
      begin
        with edge[i] do
          begin
            if state[x]+w<state[y] then
              begin
                state[y]:=state[x]+w;
                if exits[y]=false then
                  begin
                    inc(tail);
                    t[tail]:=y;
                    exits[y]:=true
 
;
                  end;
              end;
            i:=next;
          end;
      end;
      exits[t[head]]:=false;
    until head=tail;
end;
begin
  assign(input,'short.in');
  reset(input);
  assign(output,'short.out');
  rewrite(output);
  fillchar(state,sizeof(state),63);
  readln(n,m,l);
  j:=1;
  for i:=1 to m do
    begin
      readln(q,p,o);
      edge[j].x:=q;
      edge[j].y:=p;
      edge[j].w:=o;
      edge[j].next:=ls[edge[j].x];
      ls[edge[j].x]:=j;
      inc(j);
      edge[j].x:=p;
      edge[j].y:=q;
      edge[j].w:=o;
      edge[j].next:=ls[edge[j].x];
      ls[edge[j].x]:=j;
      inc(j);

    end;

  spfa;

    writeln(state[l])
end.