【NOIP2015提高组Day1】信息传递

有n个同学（编号为1到n）正在玩一个信息传递的游戏。在游戏里每人都有一个固定的信息传递对象，其中，编号为i的同学的信息传递对象是编号为Ti的同学。游戏开始时，每人都只知道自己的生日。之后每一轮中，所有人会同时将自己当前所知的生日信息告诉各自的信息传递对象（注意：可能有人可以从若干人那里获取信息，但是每人只会把信息告诉一个人，即自己的信息传递对象）。当有人从别人口中得知自己的生日时，游戏结束。请问该游戏一共可以进行几轮？

输入文件名为message.in。 输入共2行。  第 1 行包含 1 个正整数n，表示n个人。  第 2 行包含n个用空格隔开的正整数T1,T2,… ,Tn，其中第Ti个整数表示编号为i 的同学的信息传递对象是编号为Ti的同学，Ti≤n且Ti≠i。  数据保证游戏一定会结束。

输出文件名为message.out。  输出共1行，包含1个整数，表示游戏一共可以进行多少轮。

一个赤裸裸的强连通分量啊！！

type
arr=record
y,next:longint;
end;
var
e:array [0..200001] of arr;
n,ans,tail,en,dn,bn:longint;
v:array [0..200001] of boolean;
f,ls,a,low,dfn:array [0..200001] of longint;
procedure add(o,p:longint);
begin
inc(en);
with e[en] do
begin
y:=p;
next:=ls[o];
ls[o]:=en;
end;
end;

function min(o,p:longint):longint;
begin
if o<p then exit(o);
exit(p);
end;

procedure dfs(x:longint);
var
i,j,sz:longint;
begin
inc(tail);
f[tail]:=x;
v[x]:=true;
inc(dn);
low[x]:=dn; dfn[x]:=dn;
i:=ls[x];
while i<>0 do
with e[i] do
begin
if dfn[y]=0 then
begin
dfs(y);
low[x]:=min(low[x],low[y]);
end else
if v[y] then
low[x]:=min(low[x],dfn[y]);
i:=next;
end;
if low[x]=dfn[x] then
begin
inc(bn);
sz:=0;
repeat
inc(sz);
j:=f[tail];
dec(tail);
v[j]:=false;
a[j]:=bn;
until j=x;
if sz>1 then ans:=min(ans,sz);
end;
end;

procedure tarjan;
var
i:longint;
begin
ans:=maxlongint;
fillchar(dfn,sizeof(dfn),0);
fillchar(low,sizeof(low),0);
bn:=0; dn:=0; tail:=0;
for i:=1 to n do
if dfn[i]=0 then
dfs(i);
end;

procedure init;
var
i,y:longint;
begin
readln(n);
for i:=1 to n do
begin
read(y);
add(i,y);
end;
end;

begin
assign(input,'message.in');
assign(output,'message.out');
reset(input);
rewrite(output);
init;
tarjan;
write(ans);
close(input);
close(output);
end.