poj1988

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

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

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

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

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

 var fa,s,up:array[..] 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:=;
     while fa[x]<>x do
     begin
       k2:=k2+up[x];
       x:=fa[x];
     end;
     exit(x);
   end;

 begin
   readln(m);
   for i:= to  do
   begin
     fa[i]:=i;
     s[i]:=;
     up[i]:=;
   end;
   for i:= 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-);
     end;
   end;
 end.