分糖果_解题报告_SSL2339_tyvj1083_spfa

Description

童年的我们，将和朋友分享美好的事物作为自己的快乐。这天，C小朋友得到了Plenty of candies，将要把这些糖果分给要好的朋友们。已知糖果从一个人传给另一个人需要1 秒的时间，同一个小朋友不会重复接受糖果。由于糖果足够多，如果某时刻某小朋友接受了糖果，他会将糖果分成若干份，分给那些在他身旁且还没有得到糖果的小朋友们，而且自己会吃一些糖果。由于嘴馋，小朋友们等不及将糖果发完，会在得到糖果后边吃边发。每个小朋友从接受糖果到吃完糖果需要m秒的时间。那么，如果第一秒C小朋友开始发糖，第多少秒所有小朋友都吃完了糖呢?
输入格式Input Format 第一行为三个数n、p、c，为小朋友数、关系数和C小朋友的编号。

第二行为一个数m，表示小朋友吃糖的时间。

Input

第一行为三个数n、p、c，为小朋友数、关系数和C小朋友的编号。

第二行为一个数m，表示小朋友吃糖的时间。

下面p行每行两个整数，表示某两个小朋友在彼此身旁

Output

一个数，为所有小朋友都吃完了糖的时间

Sample Input

4 3 1

2

1 2

2 3

1 4

Sample Output

5

Hint

40%的数据满足：1<=n<=100

60%的数据满足：1<=n<=1000

100%的数据满足：1<=n<=100000

m<=n*(n-1)/2,不会有同一个关系被描述多次的情况。

思路：

题目的真相是找到一条最长的最小代价路，数据之大spfa无疑。在所有的最短路中找到一条最长路保证所有的孩子都拿到糖，注意最后加上吃糖的时间。路是双向的，被坑地蛋碎一地。

源代码/pas：

type
rec=record
  x,y,w,next:longint;
end;
var
  n,m,time,p:longint;
  g:array[1..2000000]of rec;
  ls,d:array[1..100000]of longint;
  state:array[1..100000]of longint;
  v:array[1..100000]of boolean;
  max:int64;
procedure init;
var
  i:longint;
begin
  readln(n,m,p);
  readln(time);
  for i:=1 to n do ls[i]:=0;
  for i:=1 to m do
  begin
    with g[i*2-1] do
    begin
      read(x,y);
      w:=1;
      next:=ls[x];
      ls[x]:=i*2-1;
    end;
    with g[i*2] do
    begin
      w:=1;
      x:=g[i*2-1].y;
      y:=g[i*2-1].x;
      next:=ls[x];
      ls[x]:=i*2;
    end;
  end;
end;
procedure spfa;
var
  head,tail,t:longint;
begin
  head:=0;
  tail:=1;
  fillchar(state,sizeof(state),0);
  fillchar(v,sizeof(v),false);
  fillchar(d,sizeof(d),$7f div 2);
  d[p]:=0;
  state[1]:=p;
  v[p]:=true;
  repeat
    inc(head);
    t:=ls[state[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);
          state[tail]:=y;
        end;
      end;
      t:=next;
    end;
    v[state[head]]:=false;
  until head>=tail;
  max:=0;
  for t:=2 to n do
  if d[t]>max then max:=d[t];
  writeln(max+time+1);
end;
begin
  init;
  spfa;
end.