SDOI2008Cave 洞穴勘测

无限膜拜CLJ大牛……

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

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

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

代码：

 var i,n,m,x,y:longint;
     ch,cha:char;
     fa:array[..] 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:= to n do fa[i]:=i;
    for i:= 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.   

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