bzoj2789

这种题目肯定是先把一个当做标准串
根据标准串得出一个初始串是怎么排列的，然后求逆序对数就可以了
但是因为有重复，我们不知道标准串中的一个数到底是由原来哪个字母交换来的
但是我们可以猜，不难贪心得到
对于标准串中某一个字符，它第一次出现的位置是有原串第一次出现的位置交换来的，
第二次是第二次，以此类推……
虽然不知道怎么证明但感觉就是对的

 var c:array[..] of longint;
     b:array[..] of longint;
     q:array[..,..] of longint;
     i,x,n:longint;
     ans:int64;
     ch:char;

 function lowbit(x:longint):longint;
   begin
     exit(x and (-x));
   end;

 procedure add(x:longint);
   begin
     while x<=n do
     begin
       inc(c[x]);
       x:=x+lowbit(x);
     end;
   end;

 function ask(x:longint):int64;
   begin
     ask:=;
     while x> do
     begin
       ask:=ask+c[x];
       x:=x-lowbit(x);
     end;
   end;

 begin
   readln(n);
   for i:= to n do
   begin
     read(ch);
     x:=ord(ch)-;
     inc(b[x]);
     q[x,b[x]]:=i;
   end;
   readln;
   fillchar(b,sizeof(b),);
   for i:= to n do
   begin
     read(ch);
     x:=ord(ch)-;
     inc(b[x]);
     x:=q[x,b[x]];
     ans:=ans+ask(n)-ask(x-);
     add(x);
   end;
   writeln(ans);
 end.