并查集笔记

最新推荐文章于 2022-08-13 22:17:09 发布

willbe233

最新推荐文章于 2022-08-13 22:17:09 发布

阅读量414

点赞数 3

分类专栏：学习笔记

本文链接：https://blog.csdn.net/weixin_41221124/article/details/95759120

版权

学习笔记专栏收录该内容

26 篇文章 0 订阅

订阅专栏

概念

并查集是一种树型的数据结构，用于处理一些不相交集合 $(D i s j o i n t S e t s)$ 的合并及查询问题。

代码

Var father:array[0..100000] of longint;
    i,n,m,k,a,b:longint;

function get_father(m:longint):longint;
Begin
        if father[m]=m then exit(m)
        else
        Begin
                father[m]:=get_father(father[m]);
                exit(father[m]);
        end;
end;

function together(a,b:longint):boolean;
Begin
        a:=get_father(a);b:=get_father(b);
        father[a]:=b;
end;

procedure do_it;
Var i:longint;
Begin
        readln(n,m);
        for i:=1 to n do
        Begin
                father[i]:=i;
        end;

        for i:=1 to m do
        Begin
                readln(a,b);
                together(a,b);
        end;

        readln(k);
        for i:=1 to k do
        Begin
                readln(a,b);
                if get_father(a)=get_father(b) then
                Begin
                        writeln('Yes');
                end
                else
                Begin
                        writeln('No');
                end;
        end;
end;

Begin 
        do_it;
end.