3402: [Usaco2009 Open]Hide and Seek 捉迷藏

3402: [Usaco2009 Open]Hide and Seek 捉迷藏

Time Limit: 3 Sec  Memory Limit: 128 MB
Submit: 78  Solved: 64
[Submit][Status]

Description

    贝茜在和约翰玩一个“捉迷藏”的游戏．

    她正要找出所有适合她躲藏的安全牛棚．一共有N(2≤N≤20000)个牛棚，被编为1到N号．她知道约翰（捉牛者）从牛棚1出发．所有的牛棚由M(1≤M≤50000)条双向路连接，每条双向路连接两个不同的牛棚．所有的牛棚都是相通的．贝茜认为同牛棚1距离最远的的牛棚是安全的．两个牛棚间的距离是指，从一个牛棚到另一个牛棚最少需要通过的道路数量．请帮贝茜找出所有的安全牛棚．

Input

    第1行输入两个整数N和M，之后M行每行输入两个整数，表示一条路的两个端点．

   

Output

 仅一行，输出三个整数．第1个表示安全牛棚（如果有多个，输出编号最小的）；第2个表示牛棚1和安全牛棚的距离；第3个表示有多少个安全的牛棚．

Sample Input

6 7
3 6
4 3
3 2
1 3
1 2
2 4
5 2

Sample Output

4 2 3

HINT

 

Source

Silver

 题解：不用多说，明显的单源最短路，但是出现了一个很神奇的小插曲——一开始用dijkstra写，结果TLE得很惨；于是换成spfa，然后192ms就AC了？！？！

于是，本人打算就此展开下一次实验研究，同时将可能考虑引入用堆优化的dijkstra，以及在进行全源最短路时引入Floyd算法进行对比，敬请期待

/**************************************************************
    Problem: 3402
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:192 ms
    Memory:13904 kb
****************************************************************/
 
type
    point=^node;
    node=record
               g,w:longint;
               next:point;
    end;
var
   i,j,k,l,m,n,f,r:longint;
   a:array[0..100000] of point;
   b,c,d:array[0..1000000] of longint;
   p:point;
procedure add(x,y,z:longint);
          var p:point;
          begin
               new(p);p^.g:=y;p^.w:=z;
               p^.next:=a[x];a[x]:=p;
          end;
function min(x,y:longint):longint;
         begin
              if x<y then min:=x else min:=y;
         end;
begin
     readln(n,m);
     for i:=1 to n do a[i]:=nil;
     for i:=1 to m do
         begin
              readln(j,k);
              add(j,k,1);add(k,j,1);
         end;
     f:=1;r:=2;
     fillchar(c,sizeof(c),0);
     b[1]:=1;c[1]:=1;
 
     while f<r do
           begin
                p:=a[b[f]];
                while p<>nil do
                      begin
                           if (c[p^.g]=0) or (c[p^.g]>(c[b[f]]+p^.w)) then
                              begin
                                   b[r]:=p^.g;
                                   c[p^.g]:=c[b[f]]+p^.w;
                                   inc(r);
                              end;
                           p:=p^.next;
                      end;
                inc(f);
           end;
     j:=0;k:=0;l:=0;
     for i:=1 to n do
         if c[i]>j then
            begin
                 j:=c[i];
                 k:=1;
                 l:=i;
            end
         else if c[i]=j then inc(k);
     writeln(l,' ',j-1,' ',k);
end.