题目描述
如题,给出一个有向图,请输出从某一点出发到所有点的最短路径长度。
输入输出格式
输入格式:
第一行包含三个整数N、M、S,分别表示点的个数、有向边的个数、出发点的编号。
接下来M行每行包含三个整数Fi、Gi、Wi,分别表示第i条有向边的出发点、目标点和长度。
输出格式:
一行,包含N个用空格分隔的整数,其中第i个整数表示从点S出发到点i的最短路径长度(若S=i则最短路径长度为0,若从点S无法到达点i,则最短路径长度为2147483647)
输入输出样例
输入样例#1:
4 6 1
1 2 2
2 3 2
2 4 1
1 3 5
3 4 3
1 4 4
输出样例#1:
0 2 4 3
说明
时空限制:1000ms,128M
数据规模:
对于20%的数据:N<=5,M<=15
对于40%的数据:N<=100,M<=10000
对于70%的数据:N<=1000,M<=100000
对于100%的数据:N<=10000,M<=500000
做法:spfa模板
代码如下:
type
rec=record
x,y,w,next:longint;
end;
var
n,m,x,i,k,s:longint;
g:array[0..1000000] of rec;
d,ls,list:array[0..1000000] of longint;
v:array[0..1000000] of boolean;
procedure spfa;
var
head,tail,t:longint;
begin
head:=0;
tail:=1;
list[1]:=s;
v[s]:=true;
while head<tail do
begin
inc(head);
t:=ls[list[head]];
while t>0 do
with g[t] do
begin
if d[x]+w<d[y] then
begin
d[y]:=d[x]+w;
if not v[y] then
begin
v[y]:=true;
inc(tail);
list[tail]:=y;
end;
end;
t:=next;
end;
v[list[head]]:=false;
end;
end;
begin
readln(n,m,s);
for i:=1 to n do
d[i]:=maxlongint;
d[s]:=0;
for i:=1 to m do
with g[i] do
begin
readln(x,y,w);
next:=ls[x];
ls[x]:=i;
end;
spfa;
for i:=1 to n do
write(d[i],' ');
end.