CF 217A （森林数）

nike0good

于 2012-10-28 08:30:17 发布

阅读量1k

点赞数

分类专栏：并查集

本文链接：https://blog.youkuaiyun.com/nike0good/article/details/8120146

版权

并查集专栏收录该内容

19 篇文章

订阅专栏

本文探讨了森林数的概念及其与裸并查集之间的联系，在编程领域中提供了求解森林数的方法，并通过实例展示了如何应用裸并查集解决实际问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

求森林数，裸的并查集

Program c;
var
   n,i,j,ans:longint;
   map:array[1..100,1..2] of longint;
   f:array[1..100] of longint;
function getfather(a:longint):longint;
begin
   if f[a]=a then exit(a);
   f[a]:=getfather(f[a]);
   exit(f[a]);
end;
procedure union(a,b:longint);
begin
   f[getfather(a)]:=f[getfather(b)];
end;
begin
   read(n);
   for i:=1 to n do
   begin
      f[i]:=i;
      read(map[i,1],map[i,2]);
      for j:=1 to i-1 do
         if (map[i,1]=map[j,1]) or (map[i,2]=map[j,2]) then
            union(i,j);

   end;
   ans:=0;
   for i:=2 to n do
      if getfather(i)<>getfather(i-1) then
      begin
         inc(ans);
         union(i,i-1);
      end;
   writeln(ans);

end.