N头牛要去参加一场在编号为x(1<=x<=n)的牛的农场举行的派对（1<=N<=1000）,有M(1<=m<=100000)条有向道路，每条路长ti(1<=ti<=100);
每头牛都必须参加完派对后回到家，每头牛都会选择最短路径，求这n个牛的最短路径（一个来回）中最长的一条的长度。
特别提醒：可能有权值不同的重边。
每头牛都必须参加完派对后回到家，每头牛都会选择最短路径，求这n个牛的最短路径（一个来回）中最长的一条的长度。
特别提醒：可能有权值不同的重边。
题解：
赤裸裸的SPFA，一正一反。
代码：
procedure spfa;
var
h,t,i:longint;
begin
h:=0;t:=1;list[1]:=1;v[1]:=1;
repeat
h:=h mod n+1;
i:=lastside[list[h]];
while i>0 do
begin
if d[x[i]]+w[i]<d[y[i]] then
begin
d[y[i]]:=d[x[i]]+w[i];
if v[y[i]]=0 then
begin
t:=t mod n+1;
v[y[i]]:=1;
list[t]:=y[i];
end;
end;
i:=next[i];
end;
v[list[h]]:=0;
until h=t;
end;
var
h,t,i:longint;
begin
h:=0;t:=1;list[1]:=1;v[1]:=1;
repeat
h:=h mod n+1;
i:=lastside[list[h]];
while i>0 do
begin
if d[x[i]]+w[i]<d[y[i]] then
begin
d[y[i]]:=d[x[i]]+w[i];
if v[y[i]]=0 then
begin
t:=t mod n+1;
v[y[i]]:=1;
list[t]:=y[i];
end;
end;
i:=next[i];
end;
v[list[h]]:=0;
until h=t;
end;