题目描述
有n个同学(编号为1到n)正在玩一个信息传递的游戏。在游戏里每人都有一个固定的信息传递对象,其中,编号为i的同学的信息传递对象是编号为Ti同学。
游戏开始时,每人都只知道自己的生日。之后每一轮中,所有人会同时将自己当前所知的生日信息告诉各自的信息传递对象(注意:可能有人可以从若干人那里获取信息,但是每人只会把信息告诉一个人,即自己的信息传递对象)。当有人从别人口中得知自己的生日时,游戏结束。请问该游戏一共可以进行几轮?
输入输出格式
输入格式:
输入共2行。
第1行包含1个正整数n表示n个人。
第2行包含n个用空格隔开的正整数T1,T2,……,Tn其中第i个整数Ti示编号为i
的同学的信息传递对象是编号为Ti的同学,Ti≤n且Ti≠i
数据保证游戏一定会结束。
输出格式:
输出共 1 行,包含 1 个整数,表示游戏一共可以进行多少轮。
输入输出样例
输入样例#1:
5
2 4 2 3 1
输出样例#1:
3
说明
样例1解释
游戏的流程如图所示。当进行完第 3 轮游戏后, 4 号玩家会听到 2 号玩家告诉他自
己的生日,所以答案为 3。当然,第 3 轮游戏后, 2 号玩家、 3 号玩家都能从自己的消息
来源得知自己的生日,同样符合游戏结束的条件。
对于 30%的数据, n ≤ 200;
对于 60%的数据, n ≤ 2500;
对于 100%的数据, n ≤ 200000。
算法:深搜
分析:第一次写炸了,回过头来想一想,发现算法是错误的,这道题正解应该是图论,拓扑排序找最小环,但深搜也还是很好理解的。(这种思路是借鉴某位大牛的程序才恍然大悟的)用三个数组,a记边(读入),b记在以哪个枝点为开始的环内,f记此点在环内的步数。随便取一个点i为环的开端,沿着边走下去,记下步数存入f中,再将b[k]赋成i。当遇到一个点b[k]不为0时,有两种情况:1.成为新环,跳出并取小。2.遇到旧环,特判b[k]<>i那么不计。 还有一个问题,怎样算出环的长度?f数组会多出,因为b数组记的不是环,会有另外的点。设num是b数组内的点数,j是成为新环时判断的点,那么,环长就是num-f[j](可以画个图理解一下,毕竟是tg的题,不那么容易想到)
var
i,j,k,n,m,ans,num:longint;
a,b,f:array[..+] of longint;
begin
read(n);
for i:= to n do read(a[i]);
fillchar(b,sizeof(b),);
fillchar(f,sizeof(f),);
ans:=maxlongint;
for i:= to n do
begin
if b[i]<> then continue;
k:=i;
num:=;
while b[k]= do
begin
f[k]:=num;
inc(num);
b[k]:=i;
k:=a[k];
end;
if b[k]<>i then continue;
num:=num-f[k];
if num<ans then ans:=num;
end;
writeln(ans);
end.