光荣的梦想(sequence.pas/in/out)

 

光荣的梦想

(sequence.pas/in/out)

Problem

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

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

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

Input

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

Output

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

Sample Input

4

2 1 4 3

Sample Output

2

==========================

这道题原来做过

是个归并

==================================

var
  n,t1:longint;
  ans:longint;
  a,b:array[1..10000]of longint;
procedure init;
begin
  assign(input,'sequence.in');
  assign(output,'sequence.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure gb(x,y:longint);
var
  mid:longint;
  i,j,k:longint;
begin
  if x=y then exit;
  mid:=(x+y) shr 1;
  gb(x,mid); gb(mid+1,y);
  i:=x; j:=mid+1; k:=x;    //这里的注意..
  while k<=y do
    begin
      if (i<=mid)and(j<=y) then
        begin
          while (i<=mid)and(j<=y)and(a[i]<=a[j]) do
          //在前面比后面小的时候不交换.否则答案错误
            begin
              b[k]:=a[i];
              inc(i);
              inc(k);
            end;
          while (i<=mid)and(j<=y)and(a[i]>a[j]) do
            begin
              b[k]:=a[j];
              inc(j);
              inc(k);
              ans:=ans+mid+1-i;
            end;
        end         //在两段都有元素的情况下;
        else        //在其中一段没有元素的情况下;
        begin
          while i<=mid do
            begin
              b[k]:=a[i];
              inc(i);
              inc(k);
            end;
          while j<=y do
            begin
              b[k]:=a[j];
              inc(j);
              inc(k);
            end;
        end;
    end;
    
  for i:=x to y do a[i]:=b[i];
end;

procedure main;
var
  i1:longint;
  i:longint;
begin


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

begin
  init;
  main;
  terminate;
end.