钻石布展

【题目描述】
奶牛贝茜总是喜欢发光的东西，开采钻石是它的一项业余爱好。它收集了n(n≤100,000)颗大小不等的钻石。它想安排它们在一对谷仓的展示柜里展览。贝茜希望每个展示柜里的钻石大小相仿，它决定大小差距超过k的两颗钻石不能在同一个展示柜（大小差距正好是k的两颗钻石可以在同一个展示柜）。现在给出k，请帮助贝茜决定两个展示柜中的钻石最大总数量。
【输入格式】
第一行包括n和k(0≤k≤1,000,000,000)。
下面n行，每行给出一个钻石的大小，所有钻石的大小不会超过1,000,000,000。
【输出格式】
一个正整数表示贝茜可以展览在两个展示柜里的钻石数量之和。
【输入样例】
7 3
10
5
1
12
9
5
14
【输出样例】
5
【样例说明】
第一个展示柜：5 5
第二个展示柜：10 12 9
共5个钻石
【分析】
单调队列+动态规划

uses math;var  i,j,n,k,ans:longint;    a,fl,fr:array[0..100001]of longint;procedure qsort(l,r:longint);var  i,j,temp,mid:longint;begin  i:=l; j:=r;  mid:=a[(l+r) div 2];  repeat    while a[i]<mid do inc(i);    while a[j]>mid do dec(j);    if i<=j then    begin      temp:=a[i];a[i]:=a[j];a[j]:=temp;      inc(i);dec(j);    end;  until i>j;  if l<j then qsort(l,j);  if i<r then qsort(i,r);end;begin  readln(n,k);    for i:=1 to n do read(a[i]);    qsort(1,n);    i:=1;    for j:=1 to n do begin      while a[j]-a[i]>k do inc(i);        fl[j]:=max(fl[j-1],j-i+1);    end;    j:=n;    for i:=n downto 1 do begin      while a[j]-a[i]>k do dec(j);        fr[i]:=max(fr[i+1],j-i+1);    end;    for i:=1 to n-1 do ans:=max(ans,fl[i]+fr[i+1]);//枚举分割点    write(ans);end.