寒假给自己定的第一个目标就是把并查集，Tarjan之类搞会。翻了翻笔记，发现并查集是2012年的6月30日学的…早就忘光了…今天敲题目的时候也吃了不少的亏呢…
家族这一题就是并查集的标准题，第一次提交失误了，我的union子过程莫名陷入了死循环，我的f数组存在死循环，最后发现是find函数有个bug…
我又跑去参考NOCOW了，只是觉得一直参考标程不是太好，毕竟比赛的时候得独立debug是吧…
核心代码就是union子过程和find函数了，其实也没什么技术含量，思路比较要紧。过会儿去研究下，这个算法貌似还有什么优化来着~
program vijos_p1034;
var f:array[..] of integer;
i,j,n,p,m,mi,mj,li,lj,pi,pj:integer;
function find(x:integer):integer;
var t:integer;
begin
if f[x]=x then exit(x) else f[x]:=find(f[x]);
exit(f[x]);
end; procedure union(x,y:integer);
var fx,fy:integer;
begin
fx:=find(x);
fy:=find(y);
if fx<>fy then f[fx]:=fy;
end; begin
readln(n,m,p);
for i:= to n do
f[i]:=i;
for i:= to m do
begin
readln(mi,mj);
union(mi,mj);
end;
for i:= to p do
begin
readln(pi,pj);
li:=find(pi);
lj:=find(pj);
if li=lj then writeln('Yes') else writeln('No');
end;
end.
家族