题目描述
休息的时候,可以放松放松浑身的肌肉,打扫打扫卫生,感觉很舒服。在某一天,某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.