jzoj 1390. 【2012.02.25普及组】牛车 结题报告

1390. 【2012.02.25普及组】牛车 (Standard IO)

时间限制:  1000 ms  空间限制:  131072 KB  具体限制  

Goto ProblemSet

题目描述

高速公路上有N(1<=N<=50,000)只奶牛，编号为1..N,每头牛都开着自己的车，第i头牛的车速为S_i(1<=S_i<=1,000,000)km/h，告诉公路上一共有M个车道(1<=M<=N)。

为了安全起见，每头牛都遵循以下原则：同车道前面有x头牛，牛的车速就会降低D*X(0<=D<=5,000)KM/h，当然不会降到0以下，所以车速应该max(S_i-D*X,0)。由于车距很大，所以即使后面的车比前面的车快，你也不用担心会发生碰撞。

高速公路上有一个最低限速L(1<=L<=1,000,000),凡是低于该速度的车不允许上高速，现在请你来计算一共可以多少辆车在高速公路上行驶。

输入

第1行: 4个空格隔开的整数N,M,D,L

第2..N+1行: 第i+1行描述第i头牛的起初车速。

输出

第一行: 输出一个整数表示最多可以在高速上行驶的牛车数量。

样例输入

3 1 1 5
5
7
5

样例输出

2

代码如下： 贪心，把速度小的放前面，后面放不了的放剩下的公路（同样是小的在前）；

var
 n,m,d,l:int64;
 a,b:array[-10..500000]of int64;

procedure init;
var i:longint;
begin
 readln(n,m,d,l);
 for i:=1 to n do
  readln(a[i]);
end;

procedure qsort(l,r:int64);
var i,j:longint;
m,t:int64;
begin
 if l>=r then exit;
 i:=l; j:=r; m:=a[(l+r) div 2];
 repeat
  while a[i]<m do inc(i);
  while a[j]>m do dec(j);
   if i<=j then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; inc(i); dec(j); end;
  until i>j;
 qsort(i,r);
 qsort(l,j);
end;

procedure main;
var i,j:longint;
ans:int64;
begin
 init;
 ans:=0;
 qsort(1,n);
 for j:=1 to n do
 begin
  for i:=1 to m do
    if a[j]-b[i]*d>=l then begin inc(ans); inc(b[i]); break; end;
  end;
 write(ans);
end;

begin
 main;
end.