3462. 【NOIP2013模拟联考5】休息(rest) (Standard IO)

Description

休息的时候，可以放松放松浑身的肌肉，打扫打扫卫生，感觉很舒服。在某一天，某LMZ 开始整理他那书架。已知他的书有n 本，从左到右按顺序排列。他想把书从矮到高排好序，而每一本书都有一个独一无二的高度Hi。他排序的方法是：每一次将所有的书划分为尽量少的连续部分，使得每一部分的书的高度都是单调下降，然后将其中所有不少于2 本书的区间全部翻转。重复执行以上操作，最后使得书的高度全部单调上升。可是毕竟是休息时间，LMZ 不想花太多时间在给书排序这种事上面。因此他划分并翻转完第一次书之后，他想计算，他一共执行了多少次翻转操作才能把所有的书排好序。LMZ 惊奇地发现，第一次排序之前，他第一次划分出来的所有区间的长度都是偶数。

 

Input

第一行一个正整数n, 为书的总数。
接下来一行n个数，第i个正整数Hi，为第i 本书的高度。

 

Output

仅一个整数，为LMZ 需要做的翻转操作的次数。

 

Solutions

就是求逆序对。

代码

var
  n:longint;
  ans:int64;
  a,b,sum:array[0..100001] of longint;
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;

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

procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
end;

procedure main;
var
  i,j,l,mi:longint;
begin
  l:=1; ans:=0;
  mi:=maxlongint;
  for i:=1 to n do
    if a[i]>mi then
      begin
        if l<>i-1 then ans:=ans+1;
        swap(l,i-1);
        mi:=a[i];
        l:=i;
      end else mi:=a[i];
  if l<n then
    begin
      ans:=ans+1;
      swap(l,n);
    end;
  for i:=n downto 1 do
    begin
      j:=a[i];
      while j>0 do
        begin
          ans:=ans+sum[j];
          j:=j-low(j);
        end;
      j:=a[i];
      while j<=n do
        begin
          sum[j]:=sum[j]+1;
          j:=j+low(j);
        end;
    end;
end;

begin
  init;
  main;
  writeln(ans);
end.