bzoj2789

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

var c:array[0..1000010] of longint;
    b:array[1..26] of longint;
    q:array[1..26,0..1000000] 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:=0;
    while x>0 do
    begin
      ask:=ask+c[x];
      x:=x-lowbit(x);
    end;
  end;

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