逆序对&归并排序:新斯诺克
题目描述Description
斯诺克又称英式台球,是一种流行的台球运动。在球桌上,台面四角以及两长边中心位置各有一个球洞,使用的球分别为1 个白球,15 个红球和6 个彩球(黄、绿、棕、蓝、粉红、黑)共22个球。
击球顺序为一个红球、一个彩球直到红球全部落袋,然后以黄、绿、棕、蓝、粉红、黑的顺序逐个击球,最后以得分高者为胜。斯诺克的魅力还在于可以打防守球,可以制造一些障碍球使对方无法击打目标球而被扣分。正是因为这样,斯诺克是一项充满神奇的运动。
现在考虑这样一种新斯诺克,设母球(母球即是白球,用于击打其他球)的标号为M,台面上有N 个红球排成一排,每一个红球都有一个标号,他们的标号代表了他们的分数。
现在用母球击打这些红球,一杆击打,如果母球接触到红球,就称为“K 到红球”。我们假设,一次可以击打任意多相邻连续的红球,也可以只击打一个球。并且红球既不会落袋,也不会相互发生碰撞,而只是停留在原处。每次击打时候,要想“K 到红球”,至少要击打一个红球,如果想一次击打多个红球,那么击打的红球必须是依次连续排列的。如果一次“K 到红球”所有红球的标号之和的平均数大于母球的标号M,就获得了一个“连击”。
现在请你计算总共能有多少种“连击”方案。
注意:如果当前有标号为1、2、3 的三种红球,母球标号为0,有如下6 种获得“连击”方案:( 1)、( 2)、( 3)、( 1,2)、( 2,3)、( 1,2,3)
输入描述 Input Description
共有两行。
第一行是N,M (N<=100000,M<=10000) ,N 表示台面上一共有N 个红球,M 表示母球的标号。
第二行是N 个正整数,依次表示台面上N 个红球的标号,所有标号均不超过10000。
输出描述 Output Description
只有一个数,为“连击”的方案总数。
样例输入 Sample Input
4 3
3 7 2 4
样例输出Sample Output
7
在i+1到j的区间上假设成立;
(sum[j]-sum[i])/(j-i)>m
sum[j]-sum[i]>(j-i)*m
sum[j]-sum[i]>m*j-m*i
m*i-sum[i]>m*j-sum[j]
设A[i]=m*i-sum[i];
A[i]>A[j],则连击成立。
******
i=0时,A[i]=0;
*****
变量都为int64;
code:
var init,r,sum:array[0..10000]of longint;
i,j,k:longint;
n,m,ans:longint;
procedure msort(s,t:longint);
var m,i,j,k:longint;
begin if s=t then exit;
m:=(s+t) div 2;
msort(s,m);
msort(m+1,t);
i:=s; j:=m+1; k:=s;
while (i<=m)and(j<=t) do
begin if init[i]>init[j]
then begin r[k]:=init[i];
ans:=ans+m-i+1;
inc(k);
inc(i);
end
else begin r[k]:=init[j];
inc(k);
inc(j);
end;
end;
while i<=m do
begin r[k]:=init[i];
inc(k);
inc(i);
end;
while j<=t do
begin r[k]:=init[j];
inc(k);
inc(j);
end;
for i:=s to t do
init[i]:=r[i];
end;
begin readln(n,m);
fillchar(init,sizeof(init),0);
fillchar(sum,sizeof(sum),0);
fillchar(r,sizeof(r),0);
init[0]:=0;
for i:=1 to n do
begin read(init[i]);
sum[i]:=sum[i-1]+init[i];
end;
for i:=0 to n do
init[i]:=m*i-sum[i];
ans:=0;
init[0]:=0;
{
for i:=0 to n do
write(init[i],' ');
writeln;
}
msort(0,n);
writeln(ans);
end.