新斯诺克(sheeta.pas/c/cpp)

 

新斯诺克(sheeta.pas/c/cpp)

【问题描述】

斯诺克又称英式台球，是一种流行的台球运动。在球桌上，台面四角以及两长边中心位置各有

一个球洞，使用的球分别为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）

【输入文件】

输入文件sheeta.in 共有两行，第一行是N，M (N<=100000，M<=10000)，N 表示台面

上一共有N 个红球，M表示母球的标号。

第二行是N 个正整数，依次表示台面上N个红球的标号，所有标号均不超过10000。

【输出文件】

输出文件sheeta.out 只有一个数，为“连击”的方案总数。

【输入样例】

4 3

3 7 2 4

【输出样例】

7

 

简要题意：给定一序列n ，确定它有多少个长度至少为一的连续a1 , a2 ,...,ak

思路：其实就是逆序对的一个变形，求 (a[j]-a[i])/(j-i)>m 就是求b[j]=a[j]-m*j  符合 b[j]>b[i] 的 i ,j  有几对(j>i)

ac程序;

type arr=array[0..1000000] of longint;var n,m,i:longint;sum:int64;a,b,c:arr;procedure sort(l,r:longint);var i,j,k,mid,n1,n2:longint;begin if l>=r then exit; mid:=(l+r) div 2; sort(l,mid); sort(mid+1,r); n1:=mid-l+1; n2:=r-mid; for i:=1 to n1 do  b[i]:=a[l+i-1]; for i:=1 to n2 do  c[i]:=a[mid+i]; b[n1+1]:=maxlongint; c[n2+1]:=maxlongint; i:=1; j:=1; for k:=l to r do  if b[i]<c[j] then   begin a[k]:=b[i]; inc(i); inc(sum,n2-j+1); end  else   begin a[k]:=c[j]; inc(j); end;end;begin assign(input,'sheeta.in'); assign(output,'sheeta.out'); reset(input); rewrite(output); readln(n,m); for i:=1 to n do  begin read(a[i]); inc(a[i],a[i-1]); end; for i:=1 to n do  dec(a[i],m*i); sort(0,n); {for i:=1 to n do  writeln(a[i]);} writeln(sum); close(input); close(output);end.