Party (Standard IO)

题意/Description:

        N头牛要去参加一场在编号为x(1<=x<=n)的牛的农场举行的派对（1<=N<=1000）,有M(1<=m<=100000)条有向道路，每条路长ti(1<=ti<=100);

　　每头牛都必须参加完派对后回到家，每头牛都会选择最短路径，求这n个牛的最短路径（一个来回）中最长的一条的长度。特别提醒：可能有权值不同的重边。

读入/Input：

        第1行： N,M,X；

　　第2~m+1行: Ai,Bi,Ti,表示有一条从Ai到Bi的路，长度为Ti.

输出/Output：

        最长最短路的长度。

题解/solution：

 
      正和反各做一遍SPFA，用一个数组累加，找最大值。

代码/Code：

const
maxE=20001;
maxV=200001;
type
arr=record
x,y,w:longint;
next:longint;
end;

var
nm,n,m,xy,max:longint;
tu:array [0..maxV] of arr;
ls,v,d,f,ans:array [0..maxE] of longint;

procedure add(o,p,op:longint);
begin
inc(nm);
with tu[nm] do
begin
x:=o; y:=p; w:=op;
next:=ls[o];
ls[o]:=nm;
end;
end;

procedure spfa;
var
he,ta,i,j:longint;
begin
he:=0; ta:=1;
v[xy]:=1; d[1]:=xy; f[xy]:=0;
repeat
inc(he);
j:=d[he];
i:=ls[j];
while i<>0 do
with tu[i] do
begin
if f[x]+w<f[y] then
begin
f[y]:=f[x]+w;
if v[y]=0 then
begin
inc(ta);
v[y]:=1;
d[ta]:=y;
end;
end;
i:=next;
end;
v[j]:=0;
until he=ta;
end;

procedure init1;
var
i,xx,yy,zz:longint;
begin
readln(n,m,xy);
for i:=1 to m do
begin
readln(xx,yy,zz);
add(xx,yy,zz);
end;
fillchar(v,sizeof(v),0);
fillchar(d,sizeof(d),0);
fillchar(f,sizeof(f),$7f div 3);
spfa;
end;

procedure init2;
var
i,t:longint;
begin
fillchar(ls,sizeof(ls),0);
for i:=1 to nm do
with tu[i] do
begin
t:=x; x:=y; y:=t;
next:=ls[x];
ls[x]:=i;
end;
fillchar(v,sizeof(v),0);
fillchar(d,sizeof(d),0);
fillchar(f,sizeof(f),$7f div 3);
end;

procedure main;
var
i:longint;
begin
max:=0;
for i:=1 to n do
ans[i]:=f[i];
init2;
spfa;
for i:=1 to n do
if max<ans[i]+f[i] then max:=ans[i]+f[i];
write(max);
end;

begin
init1;
main;
end.