NOI2002_ Galaxy银河英雄传说86
公元五八○一年，地球居民迁移至金牛座α第二行星，；宇宙历七九九年，银河系的两大军事集团在巴米利恩星；杨威利擅长排兵布阵，巧妙运用各种战术屡次以少胜多；然而，老谋深算的莱因哈特早已在战略上取得了主动；在杨威利发布指令调动舰队的同时，莱因哈特为了及时；作为一个资深的高级程序设计员，你被要求编写程序分；输入文件；第一行有一个整数t(1?t?500,000)，表；m
公元五八○一年，地球居民迁移至金牛座α第二行星，在那里发表银河联邦创立宣言，同年改元为宇宙历元年，并开始向银河系深处拓展。
宇宙历七九九年，银河系的两大军事集团在巴米利恩星域爆发战争。泰山压顶集团派宇宙舰队司令莱因哈特率领十万余艘战舰出征，气吞山河集团点名将杨威利组织麾下三万艘战舰迎敌。
杨威利擅长排兵布阵，巧妙运用各种战术屡次以少胜多，难免恣生骄气。在这次决战中，他将巴米利恩星域战场划分成30000列，每列依次编号为1,2,…,30,000。之后，他把自己的战舰也依次编号为1, 2, …, 30000，让第i号战舰处于第i列(i=1, 2, …,30,000)，形成“一字长蛇阵”，诱敌深入。这是初始阵形。当进犯之敌到达时，杨威利会多次发布合并指令，将大部分战舰集中在某几列上，实施密集攻击。合并指令为mij，含义为让第i号战舰所在的整个战舰队列，作为一个整体(头在前尾在后)接至第j号战舰所在的战舰队列的尾部。显然战舰队列是由处于同一列的一个或多个战舰组成的。合并指令的执行结果会使队列增大。
然而，老谋深算的莱因哈特早已在战略上取得了主动。在交战中，他可以通过庞大的情报网络随时监听杨威利的舰队调动指令。
在杨威利发布指令调动舰队的同时，莱因哈特为了及时了解当前杨威利的战舰分布情况，也会发出一些询问指令：cij。该指令意思是，询问电脑，杨威利的第i号战舰与第j号战舰当前是否在同一列中，如果在同一列中，那么它们之间布置有多少战舰。
作为一个资深的高级程序设计员，你被要求编写程序分析杨威利的指令，以及回答莱因哈特的询问。 最终的决战已经展开，银河的历史又翻过了一页……
输入文件
第一行有一个整数t(1?t?500,000)，表示总共有T条指令。 以下有T行，每行有一条指令。指令有两种格式：
mij:i和j是两个整数(1?i,j?30,000)，表示指令涉及的战舰编号。该指令是莱因哈特窃听到的杨威利发布的舰队调动指令，并且保证第i号战舰与第j号战舰不在同一列。
cij:i和j是两个整数(1?i,j?30,000)，表示指令涉及的战舰编号。该指令是莱因哈特发布的询问指令。
输出文件
你的程序应当依次对输入的每一条指令进行分析和处理：
如果是杨威利发布的舰队调动指令，则表示舰队排列发生了变化，你的程序要注意到这一点，但是不要输出任何信息；
如果是莱因哈特发布的询问指令，你的程序要输出一行，仅包含一个整数，表示在同一列上，第i号战舰与第j号战舰之间布置的战舰数目。如果第i号战舰与第j号战舰当前不在同一列上，则输出-1。
输入输出样例
galaxy.in 4
M 2 3 C 1 2 M 2 4 C 4 2
galaxy.out -1 1
样例说明
战舰位置图：表格中阿拉伯数字表示战舰编号
同一列的战舰组成一个并查集，集合中的一个结点对应一艘战舰。并以当前列的第一艘战舰作为集合的代表，并查集的数据类型采用树型，树的根结点即为集合的代表。
试题不仅要求判别两个结点是否在同一个集合(即两艘战舰是否在同一列)，而且还要求计算结点在有序集合的位置(即每一艘战舰相隔同列的第一艘战舰几个位置，简称相对位置)。
const
maxn=30000; var
x,y:integer;
i,cmdcount:longint; ch:char;
father,count,behind:array[1..maxn] of integer; fin,fout:text;
1. 查找根结点，并进行路径压缩
function find_father(x:integer):integer; {查找结点X所在树的根结点，并对该树进行路径压缩} var
i,j,f,next:integer; begin
i:=x; while father[i]<>i do i:=father[i]; f:=i; {找出结点X所在树的根结点?f}
i:=x; {按照自上而下的顺序处理X的祖先结点} while i<>f do begin
next:=father[i];
father[i]:=f; {把结点i的父结点调整为f，完成路径压缩} j:=next; repeat
behind[i]:=behind[i]+behind[j]; {calculate behind迭代，迭代求出路径上每一个子结点相对于f的相对位置} j:=father[j]; until father[j]=j; i:=next; end;
find_father:=f; {函数返回结点X所在树的根结点} end;
2. 计算合并指令
procedure moveship(x,y:integer); {把X所在的集合并入Y所在的集合} var
fx,fy:integer; begin
fx:=find_father(x);
fy:=find_father(y); {分别计算X，Y所在的子树父结点的序号}
father[father[fx]]:=fy; {若X，Y不在同一棵树内，合并子树。X所在子树的根结点调整为Y的子树的根结点}
behind[fx]:=behind[fx]+count[fy]; {{根据调整后的X和Y关系，计算X的相对根结点位置要增加count[fy]} count[fy]:=count[fy]+count[fx]; {X并入Y所在的子树，计算新集合的结点数} end;
试题不仅要求判别两个结点是否在同一个集合(即两艘战舰是否在同一列)，而且还要求计算结点在有序集合的位置(即每一艘战舰相隔同列的第一艘战舰几个位置，简称相对位置)。 procedure checkship(x,y:integer); var
f1,f2:integer; begin
f1:=find_father(x);
f2:=find_father(y); {分别计算X，Y所在的子树父结点的序号}
if f1<>f2 then writeln(fout,-1) {若X，Y不在一棵树中，则返回-1}
else writeln(fout,abs(behind[x]-behind[y])-1); {否则返回X和Y间隔的战舰数} end;
begin
assign(fin,'galaxy1.in');reset(fin);
assign(fout,'galaxy1.out');rewrite(fout);
for i:=1 to maxn do{初始时为每一艘战舰建立一个并查集} begin
father[i]:=i; count[i]:=1; behind[i]:=0; end;
readln(fin,cmdcount); {读指令数}
for i:=1 to cmdcount do{顺序处理每一条指令} begin
read(fin,ch); {读第i条指令的类型} case ch of
'M' : begin readln(fin,x,y); moveship(x,y); end; {处理合并指令} 'C' : begin readln(fin,x,y); checkship(x,y); end; {处理询问指令} end; end;
close(fin);close(fout); end.
var
father,count,behind:array[1..maxn] of integer; x,y:integer; i,CmdCount:longint; ch:char;
function Find_Father(x:integer):integer; var
i,j,f,next:integer; begin i:=x;
while Father[i]<>i do i:=Father[i]; f:=i; i:=x;
while i<>f do begin
next:=Father[i]; Father[i]:=f;
{calculate Behind} j:=next; repeat
Behind[i]:=Behind[i]+Behind[j]; j:=Father[j]; until Father[j]=j; i:=next; end;
find_Father:=f; end;
procedure MoveShip(x,y:integer); var
fx,fy:integer; begin
fx:=find_Father(x); fy:=find_Father(y); Father[Father[fx]]:=fy;
Behind[fx]:=Behind[fx]+Count[fy]; Count[fy]:=Count[fy]+Count[fx]; end;
procedure CheckShip(x,y:integer); var f1,f2:integer; begin
f1:=Find_Father(x); f2:=Find_Father(y);
if f1<>f2 then writeln(-1) else writeln(abs(Behind[x]-Behind[y])-1); end;
begin
assign(input,'galaxy.in');reset(input); assign(output,'galaxy.ans');rewrite(output); for i:=1 to maxn do
begin father[i]:=i;count[i]:=1;behind[i]:=0; end; readln(CmdCount);
for i:=1 to CmdCount do begin
read(ch); case ch of
'M' : begin readln(x,y); MoveShip(x,y); end; 'C' : begin readln(x,y); CheckShip(x,y); end; end; end;
close(input);close(output); end.