刻录光盘（图论基础）

Description

在PJOI2010夏令营快要结束的时候，很多营员提出来要把整个夏令营期间的资料刻录成一张光盘给大家，以便大家回去后继续学习。组委会觉得这个主意不错！可是组委会一时没有足够的空光盘，没法保证每个人都能拿到刻录上资料的光盘，又来不及去买了，怎么办呢？

组委会把这个难题交给了DYJ，DYJ分析了一下所有营员的地域关系，发现有些营员是一个城市的，其实他们只需要一张就可以了，因为一个人呢拿到光盘以后，其他人可以拿着U盘之类的东西去拷贝啊！

可是DYJ调查后发现，有些营员并不是那么合作，他们愿意某一些人到他那儿拷贝资料，当然也可能不愿意让另外一些人到他那儿拷贝资料，这与我们PJOI宣扬的团队合作精神格格不入！

现在假设总共有N个营员（2<=N<=200）,每个营员的编号为1~N。DJY给每个人发了一张调查表，让每个营员填上自己愿意让哪些人到他那儿拷贝资料。当然，如果A愿意把资料拷贝给B，而B又愿意把资料拷贝给C，则一旦A获得了资料，则B、C也会获得资料。

现在请你编写一个程序，根据回收上来的调查表，帮助DZY计算出组委会至少要刻录多少张光盘，才能保证所有营员回去后都能得到夏令营资料？

Input

先是一个数N，接下来N行，分别表示各个营员愿意把自己获得的资料拷贝给其他哪些营员。即输入数据的第N+1行表示第i个营员愿意把资料拷贝给那些营员编号，以一个0结束。如果一个营员不愿意拷贝资料给任何人，则相应的行只有1个0，一行中的若干数之间用一个空格隔开。

Output

一个正整数，表示最少要刻录的光盘数。

Sample Input

5

2 4 3 0

4 5 0

0

0

1 0

Sample Output

1

 

用Floyed算法，同经典题目——珍珠。

标程：

·              var

·                f:array[1..1000,1..1000] of boolean;

·                h:array [1..1000] of longint;

·                n,e,x,y,i,j,k,ans:longint;

·              begin

·                readln(n);

·                for i:=1 to n do

·                  begin

·                   repeat

·                    read(x);

·                    if x=0 then break;

·                    f[i,x]:=true;

·                   until 1=3;

·                  end;

·                for k:=1 to n do

·                  for i:=1 to n do

·                    for j:=1 to n do

·                      if (i<>j) and (i<>k) and (j<>k) then

·                          f[i,j]:=f[i,j] or (f[i,k] and f[k,j]);

·               for i:=1 to n do    ｛重点｝

·                h[i]:=i;            

·               for i:=1 to n do

·                for j:=1 to n do

·                 if f[i,j] and (h[i]=i) then

·                  h[j]:=i;｛如果i愿意给j，那么改变h[j]的值，合并｝

·               for i:=1 to n do

·                if h[i]=i then inc(ans);｛统计有多少个独立的集合｝

·               write(ans);

·              end.

·               

·               

·