标签：
Disjoint Sets
例1 亲戚
AYYZOJ p1598
COGS p259
1 Var
2 fa: array[0..5000] Of integer;
3 i,k,n,m,p,k1,k2: integer;
4 Function getfa(x:integer): integer;
5 Begin
6 If fa[x]=0 Then getfa := x
7 Else
8 Begin
9 fa[x] := getfa(fa[x]);
10 getfa := fa[x]
11 End;
12 End;
13 Procedure union(x,y:integer);
14 Var i,j: integer;
15 Begin
16 i := getfa(x);
17 j := getfa(y);
18 If i<>j Then fa[i] := j;
19 End;
20 Begin
21 readln(n,m,p);
22 fillchar(fa,sizeof(fa),0);
23 For i:=1 To m Do
24 Begin
25 readln(k1,k2);
26 union(k1,k2);
27 End;
28 For i:=1 To p Do
29 Begin
30 readln(k1,k2);
31 If getfa(k1)<>getfa(k2) Then writeln(‘No‘)
32 Else writeln(‘Yes‘);
33 End;
34 End.
几个用到并查集的地方：
1.
判断是否有亲戚关系。
2.
两个物品放在一起会爆炸，爆炸有传递性（A和B爆，B和C爆，A和C爆）；
判断哪些物品放在一起会爆。
3.
连通块
需要注意的是，每个集合可以存很多信息，比如当前集合的最大值，顶点数量等等。
标签：
原文地址：http://www.cnblogs.com/vacation/p/5189428.html
