1572: [Usaco2009 Open]工作安排Job

1572: [Usaco2009 Open]工作安排Job

Time Limit: 10 Sec  Memory Limit: 64 MB
Submit: 814  Solved: 365
[Submit][Status]

Description

Farmer John 有太多的工作要做啊！！！！！！！！为了让农场高效运转，他必须靠他的工作赚钱，每项工作花一个单位时间。 他的工作日从0时刻开始，有1000000000个单位时间（！）。在任一时刻，他都可以选择编号1~N的N(1 <= N <= 100000)项工作中的任意一项工作来完成。 因为他在每个单位时间里只能做一个工作，而每项工作又有一个截止日期，所以他很难有时间完成所有N个工作，虽然还是有可能。 对于第i个工作，有一个截止时间D_i(1 <= D_i <= 1000000000)，如果他可以完成这个工作，那么他可以获利P_i( 1<=P_i<=1000000000 ). 在给定的工作利润和截止时间下，FJ能够获得的利润最大为多少呢？答案可能会超过32位整型。

Input

第1行：一个整数N. 第2~N+1行：第i+1行有两个用空格分开的整数：D_i和P_i.

Output

输出一行，里面有一个整数，表示最大获利值。

Sample Input

3
2 10
1 5
1 7

Sample Output

17

HINT

第1个单位时间完成第3个工作(1,7)，然后在第2个单位时间完成第1个工作(2,10)以达到最大利润

Source

Gold

题解：一个比较经典的问题，直接建立一个堆，然后倒着来，到每个时间节点就加上一波，然后将最大的一坨取出来即可

 var
    i,j,k,l,m,n,head:longint;
    ans:int64;
    b:array[..,..] of longint;
    a,lef,rig,fix:array[..] of longint;
 function min(x,y:longint):longint;inline;
          begin
               if x<y then min:=x else min:=y;
          end;

 procedure swap(var x,y:longint);inline;
           var z:longint;
           begin
                z:=x;x:=y;y:=z;
           end;
 procedure sort(l,r:longint);inline;
           var i,j,x,y:longint;
           begin
                i:=l;j:=r;x:=b[(l+r) div ,];
                repeat
                      while b[i,]>x do inc(i);
                      while b[j,]<x do dec(j);
                      if i<=j then
                         begin
                              swap(b[i,],b[j,]);
                              swap(b[i,],b[j,]);
                              inc(i);dec(j);
                         end;
                until i>j;
                if i<r then sort(i,r);
                if l<j then sort(l,j);
           end;
 procedure merge(var x,y:longint);inline;
           begin
                if x= then swap(x,y);
                if y= then exit;
                if a[x]<a[y] then swap(x,y);
                merge(rig[x],y);
                fix[x]:=min(fix[lef[x]],fix[rig[x]])+;
                if fix[lef[x]]<fix[rig[x]] then swap(lef[x],rig[x]);
           end;
 function cuthead(var head:longint):longint;inline;
          begin
               cuthead:=a[head];
               merge(lef[head],rig[head]);
               head:=lef[head];
          end;
 begin
      readln(n);m:=;head:=;
      for i:= to n do readln(b[i,],b[i,]);
      sort(,n);
      j:=;
      ans:=;
      while true do
            begin
                 i:=j;
                 if b[i,]<= then break;
                 while b[i,]=b[j,] do inc(i);
                 for k:=j to i- do
                     begin
                          inc(m);l:=m;
                          a[m]:=b[k,];lef[m]:=;rig[m]:=;fix[m]:=;
                          merge(head,l);
                     end;
                 for k:= to b[j,]-b[i,] do
                     begin
                          if head= then break;
                          ans:=ans+cuthead(head);
                     end;
                 j:=i;
            end;
      writeln(ans);
      readln;
 end.