1328. Party (Standard IO)

Description

　　N头牛要去参加一场在编号为x(1<=x<=n)的牛的农场举行的派对（1<=N<=1000）,有M(1<=m<=100000)条有向道路，每条路长ti(1<=ti<=100);
　　每头牛都必须参加完派对后回到家，每头牛都会选择最短路径，求这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;