Noi2002 银河英雄传说（并查集）

公元五八○一年，地球居民迁移至金牛座α第二行星，在那里发表银河联邦创立宣言，同年改元为宇宙历元年，并开始向银河系深处拓展。

宇宙历七九九年，银河系的两大军事集团在巴米利恩星域爆发战争。泰山压顶集团派宇宙舰队司令莱因哈特率领十万余艘战舰出征，气吞山河集团点名将杨威利组织麾下三万艘战舰迎敌。

杨威利擅长排兵布阵，巧妙运用各种战术屡次以少胜多，难免恣生骄气。在这次决战中，他将巴米利恩星域战场划分成30000列，每列依次编号为1, 2, …, 30000。之后，他把自己的战舰也依次编号为1, 2, …, 30000，让第i号战舰处于第i列(i = 1, 2, …, 30000)，形成“一字长蛇阵”，诱敌深入。这是初始阵形。当进犯之敌到达时，杨威利会多次发布合并指令，将大部分战舰集中在某几列上，实施密集攻击。合并指令为M i j，含义为让第i号战舰所在的整个战舰队列，作为一个整体（头在前尾在后）接至第j号战舰所在的战舰队列的尾部。显然战舰队列是由处于同一列的一个或多个战舰组成的。合并指令的执行结果会使队列增大。

然而，老谋深算的莱因哈特早已在战略上取得了主动。在交战中，他可以通过庞大的情报网络随时监听杨威利的舰队调动指令。

在杨威利发布指令调动舰队的同时，莱因哈特为了及时了解当前杨威利的战舰分布情况，也会发出一些询问指令：C i j。该指令意思是，询问电脑，杨威利的第i号战舰与第j号战舰当前是否在同一列中，如果在同一列中，那么它们之间布置有多少战舰。

作为一个资深的高级程序设计员，你被要求编写程序分析杨威利的指令，以及回答莱因哈特的询问。

最终的决战已经展开，银河的历史又翻过了一页…… 

这道题是一道很裸的并查集题，对于每次M操作我们将I,J所在联通块合并，还有一个操作C，查询两点之间的点的个数，我们可以用DIS[I]表示I到I的祖宗的距离，那么两点间的距离就转换成了DIS[I,J]=abs(DIS[I]-DIS[J])-1; 那么DIS数组怎么更新呢，我们每次路径压缩的时候将DIS[I]=DIS[I]+DIS[FA[I]]即可。这样DIS[I]就变成了I到新的祖宗的距离。

CODE：

var
line,num,dis,fa:array[0..30000] of longint;
ch:char;
i,j,k,n,x,y,a,b:longint;

function find(x:longint):longint;
begin
if fa[x]=x then exit(x);
find:=find(fa[x]);
dis[x]:=dis[x]+dis[fa[x]];
fa[x]:=find;
end;

begin
readln(n);
for i:=1 to 30000 do
begin
line[i]:=1;
num[i]:=i;
fa[i]:=i;
end;
for i:=1 to n do
begin
readln(ch,x,y);
if ch='M' then
begin
a:=find(x); b:=find(y);
fa[a]:=b; dis[a]:=line[num[b]];
line[num[b]]:=line[num[b]]+line[num[a]];
end
else
begin
a:=find(x); b:=find(y);
if a<>b then writeln(-1)
else
writeln(abs(dis[y]-dis[x])-1);
end;
end;
end.