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.