1623: [Usaco2008 Open]Cow Cars 奶牛飞车

1623: [Usaco2008 Open]Cow Cars 奶牛飞车

Time Limit: 5 Sec  Memory Limit: 64 MB

Submit: 291  Solved: 201

[Submit][Status][Discuss]

Description

  编号为1到N的N只奶牛正各自驾着车打算在牛德比亚的高速公路上飞驰.高速公路有M(1≤M≤N)条车道.奶牛i有一个自己的车速上限Si(l≤Si≤1,000,000).

    在经历过糟糕的驾驶事故之后,奶牛们变得十分小心,避免碰撞的发生.每条车道上,如果某一只奶牛i的前面有K只奶牛驾车行驶,那奶牛i的速度上限就会下降K*D个单位,也就是说,她的速度不会超过Si - kD(O≤D≤5000),当然如果这个数是负的,那她的速度将是0.牛德比亚的高速会路法规定,在高速公路上行驶的车辆时速不得低于/(1≤L≤1,000,000).那么,请你计算有多少奶牛可以在高速公路上行驶呢?

Input

第1行输入N,M,D,L四个整数,之后N行每行一个整数输入Si.

N<=50000

Output

    输出最多有多少奶牛可以在高速公路上行驶.

Sample Input

3 1 1 5//三头牛开车过一个通道.当一个牛进入通道时,它的速度V会变成V-D*X(X代表在它前面有多少牛),它减速后,速度不能小于L 5 7 5 INPUT DETAILS: There are three cows with one lane to drive on, a speed decrease of 1, and a minimum speed limit of 5.

Sample Output

2 OUTPUT DETAILS: Two cows are possible, by putting either cow with speed 5 first and the cow with speed 7 second.

HINT

Source

Silver

题解:说好的贪心嘛!!!实在不明白为啥那么多人还弄个堆。。。

 1 var
 2    i,j,k,l,m,n,ans:longint;
 3    a:array[0..100000] of longint;
 4 procedure swap(var x,y:longint);inline;
 5           var z:longint;
 6           begin
 7                z:=x;x:=y;y:=z;
 8           end;
 9 procedure sort(l,r:longint);inline;
10           var i,j,x,y:longint;
11           begin
12                i:=l;j:=r;x:=a[(l+r) div 2];
13                repeat
14                      while a[i]<x do inc(i);
15                      while a[j]>x do dec(j);
16                      if i<=j then
17                         begin
18                              swap(a[i],a[j]);
19                              inc(i);dec(j);
20                         end;
21                until i>j;
22                if i<r then sort(i,r);
23                if l<j then sort(l,j);
24           end;
25 begin
26      readln(n,m,k,l);
27      for i:=1 to n do readln(a[i]);
28      sort(1,n);
29      for i:=1 to n do if (a[i]-(ans div m)*k)>=l then inc(ans);
30      writeln(ans);
31      readln;
32 end.

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏linux驱动个人学习

高通msm8909耳机调试

1、DTS相应修改: DTS相关代码:kernel/arch/arm/boot/dts/qcom/msm8909-qrd-skuc.dtsi: 1 s...

9765
来自专栏CreateAMind

aws 上面最新最全的GPU深度学习镜像-避免手工安装各种各样的软件

Here we have a Deep Learning system image (AWS AMI) custom built for the p2.xlar...

1112
来自专栏WOLFRAM

by 落霜枫舞

1523
来自专栏一个会写诗的程序员的博客

java.base.jmod

/Library/Java/JavaVirtualMachines/jdk-9.jdk/Contents/Home/jmods$ jmod list java....

1512
来自专栏一个会写诗的程序员的博客

《Springboot极简教程》MappingMongoConverter:Failed to convert from type [java.lang.String] to type [long]

Failed to convert from type [java.lang.String] to type [long] for value 'null'; ...

833
来自专栏黑泽君的专栏

【填大坑】关于Struts2中的 No result defined for action and result input 错误

配置好了struts.xml,也写好了Action,可是提交表单后就报 No result defined for action and result inpu...

1604
来自专栏菩提树下的杨过

仿淘宝的交易到计时JS

<script type="text/javascript"> var StartTime = new Date("2008/06/15 12:34:03")...

2057
来自专栏码匠的流水账

聊聊rocketmq的RequestTask

org/apache/rocketmq/remoting/netty/RequestTask.java

1762
来自专栏菩提树下的杨过

PixelBender(着色器)初体验

只要是玩过photoshop的人,一定会对ps中的各式各样、功能强大的滤镜(filter)留下深刻的印象。 Adobe是靠图形处理软件起家的,这方面一直是它的强...

2796
来自专栏互联网软件技术

省市区联动

2453

扫码关注云+社区