POJ1703 Find them, Catch them

题目大意：有两个帮派，命令D a b表示a,b两人不在同一个帮派里，动态询问两个人是不是在同一个帮派。

并查集。d[x]=0 or 1 表示x是否与根节点在同一帮派。碰到D a b 就合并，同时d[fa]:=(d[a]+d[b]+1) mod 2.

路径压缩的时候维护一下就好了，方法如下。

function find(x:longint):longint;
  var fa:longint;
  begin
    fa:=f[x];
    if f[x]=0 then exit(x);
    f[x]:=find(f[x]);
    d[x]:=(d[x]+d[fa])mod 2;
    exit(f[x]);
  end;

code：

var
  f,d:Array[1..100000]of longint;
  tt,ttt,i,p,q,a,b,n,m:longint;
  c,space:char;
function find(x:longint):longint;
  var fa:longint;
  begin
    fa:=f[x];
    if f[x]=0 then exit(x);
    f[x]:=find(f[x]);
    d[x]:=(d[x]+d[fa])mod 2;
    exit(f[x]);
  end;

begin
readln(tt);
for ttt:=1 to tt do
  begin
  fillchar(f,sizeof(f),0);
  fillchar(d,sizeof(d),0);
  readln(n,m);
  for i:=1 to m do
    begin
    readln(c,space,a,b);
    if c='A' then
      begin
      p:=find(a);
      q:=find(b);
      if p<>q then writeln('Not sure yet.')
      else
        if d[a]<>d[b] then writeln('In different gangs.')
        else writeln('In the same gang.');
      end;
    if c='D' then
      begin
      p:=find(a);
      q:=find(b);
      if p<>q then
        begin
        f[p]:=q;
        d[p]:=(d[a]+d[b]+1) mod 2;
        end;
      end;
    end;
    end;
end.