【洛谷 3371】【模板】单源最短路径

问题描述
如题，给出一个有向图，请输出从某一点出发到所有点的最短路径长度。
输入
第一行包含三个整数N、M、S，分别表示点的个数、有向边的个数、出发点的编号。
接下来M行每行包含三个整数Fi、Gi、Wi，分别表示第i条有向边的出发点、目标点和长度。
输出
一行，包含N个用空格分隔的整数，其中第i个整数表示从点S出发到点i的最短路径长度（若S=i则最短路径长度为0，若从点S无法到达点i，则最短路径长度为2147483647）
样例输入
4 6 1
1 2 2
2 3 2
2 4 1
1 3 5
3 4 3
1 4 4
样例输出
0 2 4 3
算法讨论
spfa模板。

const  maxn=10000;  maxm=500000;var  x,y,w,next:array[1..maxm] of longint;  d,v,ls,list:array[1..maxn] of longint;  i,j,n,m,s:longint;procedure spfa;var  hd,tl,t:longint;begin  hd:=0; tl:=1;  list[1]:=s;  v[s]:=1;  while hd<>tl do    begin      inc(hd);      t:=ls[list[hd]];      while t>0 do        begin          if d[x[t]]+w[t]<d[y[t]]            then begin                   d[y[t]]:=d[x[t]]+w[t];                   if v[y[t]]=0                     then begin                            v[y[t]]:=1;                            inc(tl);                            list[tl]:=y[t]                          end;                 end;          t:=next[t]        end;      v[list[hd]]:=0    end;end;begin  read(n,m,s);  for i:=1 to n do    d[i]:=maxlongint;  d[s]:=0;  for i:=1 to m do    begin      read(x[i],y[i],w[i]);      next[i]:=ls[x[i]];      ls[x[i]]:=i    end;  spfa;  for i:=1 to n do    write(d[i],' ')end.

Pixiv ID：61787990