.............

没看到d的范围，搞了个离散化bool数组，⊙﹏⊙b汗

细节啊！！！！

mao难度

MS

这个..和某月NOI专刊的一题很相象的样子...

我记得自己还写了个有两种解法的题解..

题目是什么呢..#...哦对了...是叫做地鼠游戏..#

调度分两步：

1，按期限递增的顺序对早于期限的任务进行调度

2，早任务要放在迟任务之前

即安排任务i时，如果存在恰处于或先于d[i]的时间空位，则将i填入其中最早的空位；如果不存在，则将i填入一个最近的还未被占的空位。

var d,w:array[1..500] of longint;

x:array[1..500] of integer;

i,j,n,t,total:longint;

procedure ice(s,t:integer);

var i,j,m,x:longint;

begin

i:=s;j:=t;x:=w[i];

repeat

while w[i]>x do inc(i);

while w[j]

如对本题有疑问可以参看我的题解：http://xujieqi.blog.hexun.com/35722312_d.html

题目的限制时间的意思是只要在

var

t,s,i,j,m,n:longint;

d,w:array[0..1000]of longint;

boo:array[0..1000]of boolean;

procedure quicksort(f,l:longint);

var

i,j,k,x,xx:longint;

begin

k:=random(l-f+1)+f;

x:=w[k];w[k]:=w[f];w[f]:=x;

xx:=d[k];d[k]:=d[f];d[f]:=xx;

i:=f;j:=l;

while i

var

i,j,k,n,s,m:longint;

boo:boolean;

a,b:array[1..10000] of longint;

hash:array[1..1000000] of boolean;

procedure sort;

var

p,q:longint;

begin

for i:=1 to n-1 do

for j:=i+1 to n do

if b[i]

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

hehe,过了！！！

贪贪贪贪贪~~~~~~心~

第100个

应该算是为数不多的贪心经典题之一吧……

程序38行

正愁着dp题做不出来这玩玩，没想到这就成为我的第100道了……

好恶心啊 ，远看像搜索，近看像动规，再细看才知道是贪心，没很好的证明还真的不敢轻易谈心啊！！！！！！

┴┬┴┬／￣＼＿／￣＼

┬┴┬┴▏　　▏▔▔▔▔＼ 这

┴┬┴／＼　／　　　　　　﹨ 地

┬┴∕　　　　　　　／　　　） 方

┴┬▏　　　　　　　　●　　▏ 不

┬┴▏　　　　　　　　　　　▔█◤ 错，

┴◢██◣　　　　　　 ＼＿＿／

┬█████◣　　　　　　　／　 让我用来踩踩！ 　

┴█████████████◣

◢██████████████▆▄

◢██████████████▆▄

█◤◢██◣◥█████████◤＼

◥◢████　████████◤　　 ＼

┴█████　██████◤　　　　　 ﹨

┬│　　　│█████◤　　　　　　　　▏

┴│　　　│ 狗熊在此！借贵宝地一踩！ 　▏

┬∕　　　∕　　　　／▔▔▔＼　　　　 ∕

*∕＿＿_／﹨　　　∕　　　　　 ＼　　／＼

回19樓 網速慢嘿嘿 安裝了10多小時

第一眼：关键路径？

第二眼：搜索？

..

...

....

.....

第N眼：原来是贪心（PS：题意是1个任务1个时间就可以完成。。）

解法正如 搁浅 牛的方法

按w[i]降序排列，从1->n依次填入时间，若无法在a[i]前完成，则将该任务的完成时间填入一个尽可能大的时间，并inc(ans,w[i]);

贪心~~~

要注意的是即使不能按时完成，也还是要做的- -国企

贪心能过吗...

快排都懒得写

六分钟Ac掉这题。

有数据吗？ 不知道为什么错了

program p1604;

type re=record

time:integer;

w:integer;

end;

var i,j,k:longint;

a:array[1..500] of re;

b:array[1..500] of longint;

sum,n:longint;

procedure kp(l,r:longint);

var i,j,x,t:longint;

begin

i:=l;

j:=r;

x:=a[(l+r) div 2].w;

repeat

while a[i].w>x do inc(i);

while a[j].w