光荣的梦想 2323

光荣的梦想

Time Limit:10000MS  Memory Limit:65536K
Total Submit:110 Accepted:45

Description

Prince对他在这片大陆上维护的秩序感到满意，于是决定启程离开艾泽拉斯。在他动身之前，Prince决定赋予King_Bette最强大的能量以守护世界、保卫这里的平衡与和谐。在那个时代，平衡是个梦想。因为有很多奇异的物种拥有各种不稳定的能量，平衡瞬间即被打破。KB决定求助于你，帮助他完成这个梦想。

一串数列即表示一个世界的状态。

平衡是指这串数列以升序排列。而从一串无序数列到有序数列需要通过交换数列中的元素来实现。KB的能量只能交换相邻两个数字。他想知道他最少需要交换几次就能使数列有序。

Input

第一行为数据的组数N。对于每组数据，第一行为数列中数的个数n,第二行为n <= 10000个数。表示当前数列的状态。

Output

输出一个整数，表示最少需要交换几次能达到平衡状态。

Sample Input

4
2 1 4 3

Sample Output

2

Source

分治不解释!!!!!!!

var

  a,b:array[1..10001]of longint;
  i,j,n,m,ans:longint;


procedure fz(l,r:longint);
var
  i,j,k,m:longint;
begin
  if l=r then exit;
  m:=(l+r) div 2;
  fz(l,m);
  fz(m+1,r);
  i:=l;
  j:=m+1;
  k:=l;
  while (i<=m) and (j<=r) do
    begin
      if a[i]>a[j] then
        begin
          ans:=ans+m-i+1;
          b[k]:=a[j];
          inc(k);
          inc(j);
        end else
        begin
          b[k]:=a[i];
          inc(k);
          inc(i);
        end;
    end;
    while (i<=m) do
      begin
        b[k]:=a[i];
        inc(i);
        inc(k);
      end;
    while (j<=r) do
      begin
        b[k]:=a[j];
        inc(j);
        inc(k);
      end;
  for i:=l to r do a[i]:=b[i];




end;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  readln;
  ans:=0;
  fz(1,n);
  writeln(ans);




end.