1642: [Usaco2007 Nov]Milking Time 挤奶时间

Time Limit: 5 Sec Memory Limit: 64 MB

Submit: 582 Solved: 331

Description

贝茜是一只非常努力工作的奶牛，她总是专注于提高自己的产量。为了产更多的奶，她预计好了接下来的N (1 ≤ N ≤ 1,000,000)个小时，标记为0..N-1。 Farmer John 计划好了 M (1 ≤ M ≤ 1,000) 个可以挤奶的时间段。每个时间段有一个开始时间(0 ≤ 开始时间 ≤ N), 和一个结束时间 (开始时间 < 结束时间 ≤ N), 和一个产量 (1 ≤ 产量 ≤ 1,000,000) 表示可以从贝茜挤奶的数量。Farmer John 从分别从开始时间挤奶，到结束时间为止。每次挤奶必须使用整个时间段。但即使是贝茜也有她的产量限制。每次挤奶以后，她必须休息 R (1 ≤ R ≤ N) 个小时才能下次挤奶。给定Farmer John 计划的时间段，请你算出在 N 个小时内，最大的挤奶的量。

Input

第1行三个整数N，M，R.接下来M行，每行三个整数Si，Ei，Pi．

Output

最大产奶量．

Sample Input

12 4 2 1 2 8 10 12 19 3 6 24 7 10 31

Sample Output

HINT

注意：结束时间不挤奶

Source

题解：好逗啊，弄来弄去原来是快排写错了TT，害得我WA了N次。。。别的嘛，按照开始时间排序后，然后DP之。。。

 1 var
 2    i,j,k,l,m,n,ans,r:longint;
 3    a:array[0..2000,1..3] of longint;
 4    f:array[0..2000] of longint;
 5 procedure swap(var x,y:longint);
 6           var z:longint;
 7           begin
 8                z:=x;x:=y;y:=z;
 9           end;
10 function max(x,y:longint):longint;
11          begin
12               if x>y then max:=x else max:=y;
13          end;
14 procedure sort(l,r:longint);
15           var
16              i,j,x,y:longint;
17           begin
18                i:=l;
19                j:=r;
20                x:=a[(l+r) div 2,1];
21                repeat
22                      while a[i,1]<x do inc(i);
23                      while a[j,1]>x do dec(j);
24                      if i<=j then
25                         begin
26                              swap(a[i,1],a[j,1]);
27                              swap(a[i,2],a[j,2]);
28                              swap(a[i,3],a[j,3]);
29                              inc(i);dec(j);
30                         end;
31                until i>j;
32                if l<j then sort(l,j);
33                if i<r then sort(i,r);
34           end;
35 begin
36      readln(n,m,r);
37      for i:=1 to m do
38          begin
39               readln(a[i,1],a[i,2],a[i,3]);
40               a[i,2]:=a[i,2]+r;
41          end;
42      sort(1,m);
43      for i:=1 to m do
44          begin
45               f[i]:=a[i,3];
46               for j:=1 to m-1 do
47                   begin
48                        if a[i,1]>=a[j,2] then
49                           f[i]:=max(f[i],f[j]+a[i,3]);
50                   end;
51               ans:=max(ans,f[i]);
52          end;
53      writeln(ans);
54 end.