最接近神的人(sophist/pas/c/cpp)

最接近神的人(sophist/pas/c/cpp)

【题目描述】

破解了符文之语，小FF开启了通往地下的道路。当他走到最底层时，发现正前方有一扇巨石门，门上雕刻着一幅古代人进行某种活动的图案。而石门上方用古代文写着“神的殿堂”。小FF猜想里面应该就有王室的遗产了。但现在的问题是如何打开这扇门……

仔细研究后，他发现门上的图案大概是说：古代人认为只有智者才是最容易接近神明的。而最聪明的人往往通过一种仪式选拔出来。仪式大概是指，即将隐退的智者为他的候选人写下一串无序的数字，并让他们进行一种操作，即交换序列中相邻的两个元素。而用最少的交换次数使原序列变成不下降序列的人即是下一任智者。

小FF发现门上同样有着n个数字。于是他认为打开这扇门的秘诀就是找到让这个序列变成不下降序列所需要的最小次数。但小FF不会……只好又找到了你，并答应事成之后与你三七分……

【输入格式】

第一行为一个整数n，表示序列长度

第二行为n个整数，表示序列中每个元素。

【输出格式】

一个整数ans，即最少操作次数。

【输入样例】

4

2 8 0 3

【输出样例】

3

样例说明：开始序列为2 8 0 3，目标序列为0 2 3 8，可进行三次操作的目标序列：

1．Swap (8,0):2 0 8 3

2．Swap (2,0):0 2 8 3

3．Swap (8,3):0 2 3 8

【数据范围】

对于30%的数据1≤n≤104。

对于100%的数据1≤n≤5*105；

-maxlongint≤A[i]≤maxlongint。

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

归并排序，求逆序对

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

var
n:longint;
ans:int64;
a,g:array[0..500001]of longint;

procedure init;
begin
assign(input,'sophist.in');
assign(output,'sophist.out');
reset(input); rewrite(output);
end;

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

procedure guibing(s,t:longint);
var
mid:longint;
i,j,k:longint;
begin
if s=t then exit;
mid:=(s+t) shr 1;
guibing(s,mid);
guibing(mid+1,t);
i:=s; j:=mid+1; k:=s;
while (i<=mid) and (j<=t) do
begin
if a[i]<=a[j] then
begin
g[k]:=a[i];
inc(i);
inc(k);
end
else
begin
g[k]:=a[j];
inc(j);
inc(k);
ans:=ans+mid-i+1;
end;
end;
while i<=mid do
begin
g[k]:=a[i];
inc(i); inc(k);
end;
while j<=t do
begin
g[k]:=a[j];
inc(j); inc(k);
end;

for i:=s to t do
a[i]:=g[i];
end;

procedure main;
var
i:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
end;
ans:=0;
guibing(1,n);
writeln(ans);
end;

begin
init;
main;
terminate;
end.