SDOI2008Cave 洞穴勘测

无限膜拜CLJ大牛……

不会动态树的弱弱在CLJ的帮助下AC了此题

我想到了并查集（人人都会想到的吧……囧），但不知道应该如何处理destroy操作……

其实 make操作的实质就是：把x节点到其所在集合代表元的路上所有有向边都反过来，然后就可以处理本体所需的所有操作了（自己想想为何）。

代码：

var i,n,m,x,y:longint;
    ch,cha:char;
    fa:array[0..210000] of longint;
function find(x:longint):longint;
 begin
   while x<>fa[x] do x:=fa[x];
   exit(x);
 end;
procedure make(x:longint);
 var y,tmp:longint;
 begin
 y:=fa[x];fa[x]:=x;
 while y<>x do
  begin
  tmp:=fa[y];fa[y]:=x;
  x:=y;y:=tmp;
  end;
 end;
procedure connect(x,y:longint);
 begin
 make(x);make(y);
 fa[x]:=y;
 end;
procedure destroy(x,y:longint);
 begin
 make(x);
 fa[y]:=y;
 end;
procedure query(x,y:longint);
 begin
 if find(x)<>find(y) then writeln('No') else writeln('Yes');
 end;
procedure main;
 begin
   readln(n,m);
   for i:=1 to n do fa[i]:=i;
   for i:=1 to m do
    begin
     read(ch);cha:='a';while cha<>' ' do read(cha);readln(x,y);
     if ch='C' then connect(x,y)
     else if ch='D' then destroy(x,y)
     else query(x,y);
    end;
 end;

begin
 main;
end.   

最后我想说一句：并查集还大有文章可做！