并查集模板

      并查集是一种神奇的算法，利用好可以解决许多高深的问题，尤其是其扩展应用，可以轻松秒掉一些难题。

pascal模板

基础并查集：

初始化

for i:=1 to n do father[i]:=i;

查找

function sf(x:longint):longint;

begin

      if f[x]=x then exit(x)

      else f[x]:=sf(f[x]);

      exit(f[x]);

end;

 

加权并查集：
初始化

for i:=1 to n do

    begin

      f[i]:=i;

      r[i]:=0;

end;

查找同时处理关系（以2取模为例）

function sf(x:longint):longint;

var

  fx:longint;

begin

  if f[x]=x then exit(x)

  else begin

    fx:=sf(f[x]);

    r[x]:=(r[x]+r[f[x]]) mod 2;

    exit(fx);

  end;

end;

并查集合并

procedure union(x,y,fx,fy,d:longint);

begin

  f[fy]:=fx;

  r[fy]:=(2-r[y]+d+r[x]) mod 2;

end;