休息

题目描述
休息的时候，可以放松放松浑身的肌肉，打扫打扫卫生，感觉很舒服。在某一天，某LMZ开始整理他那书架。已知他的书有n本，从左到右按顺序排列。他想把书从矮到高排好序，而每一本书都有一个独一无二的高度Hi。他排序的方法是：每一次将所有的书划分为尽量少的连续部分，使得每一部分的书的高度都是单调下降，然后将其中所有不少于2本书的区间全部翻转。重复执行以上操作，最后使得书的高度全部单调上升。可是毕竟是休息时间，LMZ不想花太多时间在给书排序这种事上面。因此他划分并翻转完第一次书之后，他想计算，他一共执行了多少次翻转操作才能把所有的书排好序。LMZ惊奇地发现，第一次排序之前，他第一次划分出来的所有区间的长度都是偶数。
输入
第一行一个正整数n, 为书的总数。
接下来n行，每行仅一个正整数Hi，为第i本书的高度。
输出
仅一个整数，为LMZ需要做的翻转操作的次数。
样例输入
6
5 3 2 1 6 4
样例输出
3
提示
[样例解释]
第一次划分之后，翻转(5,3,2,1)，（6,4）。之后，书的高度为1 2 3 5 4 6，然后便是翻转（5,4）即可。
[数据范围与约定]
对于10%的数据：n<=50
对于40%的数据：n<=3000
对于100%的数据：1<=n<=100000, 1<=Hi<=n

举几个例子就可以发现，第一次交换后，身下的只能两两交换，所以只要求逆序对就好了。

var
n,i,l,pre:longint;
ans:int64;
a,b,sum:array[0..100111] of longint;
function lowbit(x:longint):longint;
begin
  exit(x and -x);
end;

procedure swap(l,r:longint);
var
i:longint;
begin
  for i:=l to r do
    b[i]:=a[r-i+l];
  for i:=l to r do
    a[i]:=b[i];
end;

procedure update(x:longint);
begin
  while x<=n do
  begin
    sum[x]:=sum[x]+1;
    x:=x+lowbit(x);
  end;
end;

function getsum(x:longint):int64;
var
ans:int64;
begin
  ans:=0;
  while x>0 do
  begin
    ans:=ans+sum[x];
    x:=x-lowbit(x);
  end;
  exit(ans);
end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  l:=1;
  pre:=maxlongint;
  for i:=1 to n do
  begin
    if a[i]>pre then begin if l<>i-1 then ans:=ans+1; swap(l,i-1); pre:=a[i]; l:=i; end
                else pre:=a[i];
  end;
  if l<n then begin ans:=ans+1; swap(l,n); end;
  for i:=n downto 1 do
  begin
    ans:=ans+getsum(a[i]);
    update(a[i]);
  end;
  write(ans);
end.