家族_SSL 1896

最新推荐文章于 2020-08-10 07:40:14 发布

阿卡八斤

最新推荐文章于 2020-08-10 07:40:14 发布

阅读量223

点赞数

文章标签：并差集

本文链接：https://blog.csdn.net/SSL_BPT/article/details/78759217

版权

上课ing 专栏收录该内容

21 篇文章 0 订阅

订阅专栏

家族

Time Limit:10000MS Memory Limit:65536K
Total Submit:222 Accepted:112
Case Time Limit:1000MS

Description

若某个家族人员过于庞大，要判断两个是否是亲戚，确实还很不容易，现在给出某个亲戚关系图，求任意给出的两个人是否具有亲戚关系。
规定：x和y是亲戚，y和z是亲戚，那么x和z也是亲戚。如果x,y是亲戚，那么x的亲戚都是y的亲戚，y的亲戚也都是x的亲戚。

Input

第一行：三个整数n,m,p，（n<=50000,m<=50000,p<=50000），分别表示有n个人，m个亲戚关系，询问p对亲戚关系。以下m行：每行两个数Mi，Mj，1<=Mi，Mj<=N，表示Ai和Bi具有亲戚关系。接下来p行：每行两个数Pi，Pj，询问Pi和Pj是否具有亲戚关系。

Output

P行，每行一个’Yes’或’No’。表示第i个询问的答案为“具有”或“不具有”亲戚关系。

Sample Input

Sample Output

Yes
Yes
No

Source

cwj数据

//思路：这道题是简单的并查集，主要是找到这个亲戚的亲戚（root），之后的事情就是看看别的亲戚堆

里有没有这个Root亲戚就ＯＪＢＫ了。

var
 f,r:array[0..50000]of longint;//注意开大，为了这个我卡了一上午
 n,m,k,i,x,y,u,v:longint;
function find(x:longint):longint;
var
 root,y,w:longint;
begin
 y:=x;
 while f[y]>0 do y:=f[y];
  root:=y;
  y:=x;
  while f[y]>0 do begin
                   w:=f[y];
                   f[y]:=root;
                   y:=w;
                  end;
 find:=root;
end;
procedure ok(x,y,u,v:longint);
begin
 if r[u]<=r[v] then begin
                     f[u]:=v;
                     if r[u]=r[v] then inc(r[v]);
                    end else f[v]:=u;
end;
begin
 read(n,m,k);
 for i:=1 to m do begin
                   readln(x,y);
                   u:=find(x); v:=find(y);
                   if u<>v then ok(x,y,u,v);
                  end;
 for i:=1 to k do begin
                   readln(x,y);
                   if find(x)=find(y) then
                    writeln('Yes') else writeln('No');
                  end;
end.