信息传递（NOIP2015提高组Day1T2）

【题目描述】
有n个同学（编号为1到n）正在玩一个信息传递的游戏。在游戏里每人都有一个固定的信息传递对象，其中，编号为i的同学的信息传递对象是编号为Ti同学。
游戏开始时，每人都只知道自己的生日。之后每一轮中，所有人会同时将自己当前所知的生日信息告诉各自的信息传递对象（注意：可能有人可以从若干人那里获取信息，但是每人只会把信息告诉一个人，即自己的信息传递对象）。当有人从别人口中得知自己的生日时，游戏结束。请问该游戏一共可以进行几轮？
【输入格式】
第1行包含1个正整数n表示n个人。
第2行包含n个用空格隔开的正整数T1,T2,……,Tn其中第i个整数Ti示编号为i的同学的信息传递对象是编号为Ti的同学，Ti≤n且Ti≠i
数据保证游戏一定会结束。
【输出格式】
1 个整数表示游戏一共可以进行多少轮
【样例输入】
5
2 4 2 3 1
【样例输出】
3
【数据范围】
n≤200000
【分析】
暴力深搜即可。

uses math;var    a,f:array[0..200001]of longint;    i,n,ans,t:longint;procedure search(now:longint);begin  if f[now]>0 then begin ans:=min(ans,t-f[now]+1);exit; end;    if f[now]<>-1 then begin      inc(t);        f[now]:=t;        search(a[now]);    end;    f[now]:=-1;end;begin  readln(n);    for i:=1 to n do read(a[i]);    fillchar(f,sizeof(f),0);    ans:=maxlongint;    for i:=1 to n do      if f[i]=0 then begin          t:=0;            search(i);        end;    write(ans);end.