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

来源：互联网发布：软件测试答辩ppt 编辑：程序博客网时间：2024/04/29 07:05

传送门

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.

0 0