【NOIP2016提高A组模拟9.9】运输妹子

Description

小轩轩是一位非同一般的的大农(lao)场(si)主(ji)，他有一大片非同一般的农田，并且坐落在一条公路旁（可以认为是数轴），在他的农田里种的东西也非同一般——不是什么水稻小麦，而是妹子。
在小轩轩的细心培育下，他的大片农田都要结出妹子啦！但是他的农田分布实在是太广阔了，他担心自己的妹子会令路过的人想入非非，于是他想要把所有农田上的妹子都集中到一个仓库里面，贮存起来。可是妹子太多，他叫来了一辆卡车，这辆卡车刚好可以装满一个农田的妹子，并且在满载的情况下，运满满一卡车妹子走1米的费用是1元。由于小轩轩技术精湛，他的每个农田产量都是一样的。即把一个农田的妹子都运到仓库费用为农田与仓库坐标差值的绝对值。理想很美好，但现实很残酷——小轩轩还没有想好在什么位置搭建他的仓库，而且他的运输费用是有限的。
请你帮忙计算一下，在什么位置搭建仓库，使得小轩轩能收获的妹子最多。（仓库的位置可与农田的位置重合，并且在公路长度范围内）。

Input

第一行三个正整数 N，L，W，分别表示农田个数、公路总长度、总钱数。
接下来 N 行，每一行描述一个农田的坐标。（可能有多个农田位于同一位置）

Output

一个整数，小轩轩最多能够收藏多少个农田的妹子。

Sample Input

5 23 18
4
6
14
18
22

Sample Output

3

Data Constraint

对于 30% 的数据，N≤1000，L≤10000。
对于 60% 的数据，N≤10000，L≤1000000。
对于 100% 的数据，N≤100000，L≤1000000000，W≤2000000000000000。

比赛时の想法

先普及一波常识：选择的点一定是在一个妹子仓库同一位置的
所以我们可以枚举右端点，然后二分一下左端点
并不想说具体怎么做QAQ

贴代码

var
    a,sum:array[0..100005]of int64;
    n,l,w,k,x,y,x1,y1,ans,mid,r:int64;
    i,j:longint;
procedure qsort(l,r:longint);
var
    i,j,mid:longint;
begin
    i:=l;
    j:=r;
    mid:=a[(i+j) div 2];
    repeat
        while a[i]<mid do inc(i);
        while a[j]>mid do dec(j);
        if i<=j then
        begin
            a[0]:=a[i];
            a[i]:=a[j];
            a[j]:=a[0];
            inc(i);
            dec(j);
        end;
    until i>j;
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);
end;
function check(x,y:int64):boolean;
var
    mid,pp,t1,t2:int64;
begin
    mid:=(x+y) div 2;
    pp:=0;
    t1:=mid-x+1;
    pp:=pp+t1*a[mid]-(sum[mid]-sum[x-1]);
    t1:=y-mid;
    pp:=pp-t1*a[mid]+(sum[y]-sum[mid]);
    if pp<=w then exit(true);
    exit(false);
end;
begin
  //  assign(input,'t3.in'); reset(input);
    readln(n,l,w);
    for i:=1 to n do read(a[i]);
    readln;
    qsort(1,n);
    for i:=1 to n do sum[i]:=sum[i-1]+a[i];
    ans:=1;
    for i:=2 to n do
    begin
        l:=1;
        r:=i-1;
        while l<r do
        begin
            mid:=(l+r) div 2;
            if check(mid,i) then r:=mid else l:=mid+1;
        end;
        if check(l,i)=false then inc(l);
        if i-l+1>ans then ans:=i-l+1;
    end;
    writeln(ans);
  //  close(input);
end.