1572: [Usaco2009 Open]工作安排Job

2021-12-29 18:42:00

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

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.

码农公寓