题目描述:最近,飞过海在OI总部总算弄了个小差,现在他又被调去了OI防卫部门来制造对付基德的工具。当然,这些工作是在OI总部内的机器上进行的,可是飞过海从来没有此经验,现在飞过海又接到了一批新的任务,现在他要编程来控制机器。已知机器一天工作N mins,当飞过海按动开始按钮的时候机器就开始运转。现在OI总司给了K个生产目标,可是只有一台机器,所以总司希望知道最少机器能生产多少个零件(也就是最少工作多少分钟)。如果同时有许多的零件要加工,机器只能选择一个。但是一个零件任务是有时间限制的,也就是说,1个零件必须从P分开始,持续T分钟(好牵强的规定啊!)。由于飞过海很忙,所以请你来编写一下这个程序吧!
输入:输入文件中的第一行为两个整数N,K(1<=N<=10000000,1<=K<=100000),其中:N表示机器的运转时间(由于机器要维护,它只能工作那么多时间),单位为分钟,K表示总司布置的零件总数。接下来的K行,每行有两个整数P,T,表示该任务从第P分钟开始,持续时间为T分钟。
输出:输出文件中仅一行为一个数,表示机器最多可能加工零件的最少时间。
样例输入:
1 1
1 1
样例输出:
1
思路:简单的DP(要不是题目描述不清楚,我比赛时就AC了),顺便说一句:最近比赛的题目描述好难懂啊!!!
代码:
var
n,m,i,j,k,x,y,z,s,ls:longint;
f:array[0..20000001]of longint;
a,b:array[0..200001]of longint;
procedure qs(l,r:longint);
var
i,j,mid,t:longint;
begin
i:=l;
j:=r;
mid:=a[(l+r)div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
t:=b[i];
b[i]:=b[j];
b[j]:=t;
inc(i);
dec(j);
end;
until i>j;
if l<j then qs(l,j);
if i<r then qs(i,r);
end;
begin
assign(input,'produce.in');
reset(input);
assign(output,'produce.out');
rewrite(output);
readln(n,m);
for i:=1 to m do
readln(a[i],b[i]);
qs(1,m);
for i:=n downto 1 do
begin
if i<>a[m] then f[i]:=f[i+1]+1
else
begin
while i=a[m] do
begin
if f[i+b[m]]>f[i] then f[i]:=f[i+b[m]];
dec(m);
end;
end;
end;
writeln(n-f[1]);
end.