宗教信仰

 

1526:宗教信仰

总时间限制: 

5000ms 

内存限制: 

65536kB

描述

世界上有许多宗教，你感兴趣的是你学校里的同学信仰多少种宗教。

你的学校有n名学生（0 < n <= 50000），你不太可能询问每个人的宗教信仰，因为他们不太愿意透露。但是当你同时找到2名学生，他们却愿意告诉你他们是否信仰同一宗教，你可以通过很多这样的询问估算学校里的宗教数目的上限。你可以认为每名学生只会信仰最多一种宗教。

 

输入

输入包括多组数据。
每组数据的第一行包括n和m，0 <= m <= n(n-1)/2，其后m行每行包括两个数字i和j，表示学生i和学生j信仰同一宗教，学生被标号为1至n。输入以一行 n = m = 0 作为结束。

输出

对于每组数据，先输出它的编号（从1开始），接着输出学生信仰的不同宗教的数目上限。

样例输入

10 9
1 2
1 3
1 4
1 5
1 6
1 7
1 8
1 9
1 10
10 4
2 3
4 5
4 8
5 8
0 0

样例输出

Case 1: 1
Case 2: 7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

分析

 

该题直接应用并查集同时路径压缩即可判断出宗教信仰有多少种。判断是否在一个集合内。

 

代码如下

 

program p1526;
var n,m,s,e,num,i,ans:longint;
    father:array[1..50000] of longint;
    exist:array[1..50000] of boolean;
function find(x:longint):longint;
begin
 if father[x]=x then exit(x);
 father[x]:=find(father[x]);
 exit(father[x]);
end;

function union(a,b:longint):longint;
begin
 father[find(father[b])]:=find(father[a]);
end;

begin
 num:=0;
 readln(n,m);
 while (n<>0) and (m<>0) do
  begin
   inc(num);
   for i:=1 to n do father[i]:=i;
   for i:=1 to m do
    begin
     readln(s,e);
     union(s,e);
    end;
   fillchar(exist,sizeof(exist),false);
   ans:=0;
   for i:=1 to n do
    begin
     if not exist[find(father[i])]
      then
       begin
        inc(ans);
        exist[find(father[i])]:=true;
       end;
    end;
   writeln('Case ',num,': ',ans);
   readln(n,m);
  end;
end.

 

评测结果

 

状态: Accepted