传送门
http://www.lydsy.com/JudgeOnline/problem.php?id=1623
题目大意
给n牛的最大速度,有m条道路,第i头牛前面若有j头牛,那么速度变为v[i]-j*l(l为定值),最多有多少头牛
题解
显而易见贪心,按照最大速度排序,每次向牛数最少的里面放牛即可,判断最少牛显而易见可以用堆来维护,但是…因为我们每次都放到牛数最少的地方,并且我们不关心是哪个里面是最少的,只要判断最小值是多少就可以,即放第i头牛时,最小为 ansm
var
y,x:array[0..50000]of longint;
i,j,k:longint;
n,m,d,l,ans:longint;
procedure sort(l,r:longint);
var i,j,b,a:longint;
begin
i:=l; j:=r; a:=x[(l+r) div 2];
repeat
while x[i]<a do inc(i);
while a<x[j] do dec(j);
if not(i>j) then
begin
b:=x[i]; x[i]:=x[j]; x[j]:=b;
inc(i); dec(j);
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin
readln(n,m,d,l);
for i:=1 to n do
read(x[i]);
sort(1,n); {x[i]}
for i:=1 to n do
if x[i]-(ans div m)*d>=l
then inc(ans);
writeln(ans);
end.