/ Vijos / 讨论 / 家族 /

这道题很阴

program Dzs;

var

a,b,c,d,n,m,p,i,j,k:longint;

q:array[0..10000]of longint;

function aa(a:longint):longint;

begin

while q[a]>0 do

a:=q[a];

aa:=a;

end;

begin

readln(n,m,p);

for i:=1 to m do

begin

readln(a,b);

j:=aa(a);

k:=aa(b);

if jk then q[j]:=k;

end;

for i:=1 to p do

begin

readln(a,b);

j:=aa(a);

if aj then q[a]:=j;

k:=aa(b);

if bk then q:=k;

if j=k then writeln('Yes')(这里很阴)

else writeln('No');

end;

end.

2 条评论

  • 1

信息

ID
1034
难度
4
分类
数据结构 | 并查集 点击显示
标签
(无)
递交数
9368
已通过
3839
通过率
41%
被复制
15
上传者