[BZOJ1623][Usaco2008 Open]Cow Cars 奶牛飞车

传送门

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.