poj1988

知道了并查集写的问题后，我也明白了为什么之前这道题TLE的原因；

有这道题的合并操作不难想到用并查集维护；

由于并查集易于向上查询而不易于向下查询

所以对于询问方块x下面有多少个方块，我们可以转化为立方柱的规模-x上方的方块数-1

所以我们可以再维护这两个域即可

var fa,s,up:array[0..300010] of longint;
    k1,k2,m,n,x,y,i:longint;
    ch:char;

function getf(x:longint):longint;
  var f:longint;
  begin
    if fa[x]<>x then
    begin
      f:=getf(fa[x]);
      up[x]:=up[x]+up[fa[x]];
      fa[x]:=f;
    end;
    exit(fa[x]);
  end;

function getu(x:longint):longint;
  begin
    k2:=0;
    while fa[x]<>x do
    begin
      k2:=k2+up[x];
      x:=fa[x];
    end;
    exit(x);
  end;

begin
  readln(m);
  for i:=1 to 300000 do
  begin
    fa[i]:=i;
    s[i]:=1;
    up[i]:=0;
  end;
  for i:=1 to m do
  begin
    read(ch);
    if ch='M' then
    begin
      readln(x,y);
      k1:=getf(x);
      k2:=getf(y);
      fa[k2]:=k1;
      up[k2]:=s[k1];
      s[k1]:=s[k1]+s[k2];
    end
    else begin
      readln(x);
      k1:=getu(x);
      writeln(s[k1]-k2-1);
    end;
  end;
end.