搞了几次才过。。。太弱了。。。
本题的关键想到扩展并查集,在基础并查集的基础上额外维护一个集合的大小和当前点在集合中的位置就可以了。
Code:
type
node=record fa,d,l:longint;end;
var
f:array [0..30001] of node;
m,a,b,i:longint;
ch:char;
function find(x:longint):longint;
var
i,j,p,q:longint;
begin
i:=x;
while f[i].fa<>i do i:=f[i].fa;
p:=i;i:=x;
while i<>p do
begin
q:=f[i].fa;
f[i].fa:=p;
j:=q;
repeat
inc(f[i].d,f[j].d);
j:=f[j].fa
until f[j].fa=j;
i:=q;
end;
find:=p;
end;
procedure union(a,b:longint);
begin
a:=find(a);
b:=find(b);
f[a].fa:=b;
f[a].d:=f[b].l;
inc(f[b].l,f[a].l)
end;
begin
readln(m);
for i:=1 to 30000 do
begin
f[i].fa:=i;
f[i].l:=1;
end;
for i:=1 to m do
begin
readln(ch,a,b);
if ch='M' then union(a,b)
else
if (find(a)=find(b))
then writeln(abs(f[a].d-f[b].d)-1)
else writeln(-1);
end;
end.