jzoj 1146. 危险系数(acrobat)

1146. 危险系数(acrobat) 
(File IO): input:acrobat.in output:acrobat.out

时间限制:  1000 ms  空间限制:  262144 KB  具体限制  

Goto ProblemSet

题目描述

      N(1 <= N <= 50,000，标记为1..N)个人计划玩一个叠罗汉杂技，除了最底下的那个人以外每个人都站在另一个人的头顶上。每个人都有自己的体重W_i(1<=W_i<=10,000)和力量S_i(1<=S_i<=1,000,000,000),每个人的危险系数定义为他所承受的重量(注意：不包括他自己)减去他的力量所得到的差，你的任务是找出使得N个人中最大的危险系数最小的顺序。

输入

第一行：输入一个整数N；
第2到第N+1行：其中第i+1行描述第i个人的体重和力量，中间用空格隔开。

输出

输出一个整数表示最优顺序中最大的危险系数。

样例输入

3
10 3
2 5
3 3

样例输出

2

数据范围限制

贪心，为了达到最优，应该使越下面的人的力量和体重尽可能大，所以以体重和力量的和为关键字排序，

然后直接求解就好了。

代码如下：

var
 a,b,c:array[1..50000]of longint;
 n,max:longint;

procedure init;
var i:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a[i],b[i]);
   c[i]:=a[i]+b[i];
  end;
end;

procedure qsort(l,r:longint);
var i,j,k,m:longint;
begin
 if l>=r then exit;
 i:=l; j:=r; k:=c[(i+j) div 2];
 repeat
  while c[i]do inc(i);
  while c[j]>k do dec(j);
  if i<=j then
   begin
    m:=c[i]; c[i]:=c[j]; c[j]:=m;
    m:=a[i]; a[i]:=a[j]; a[j]:=m;
    m:=b[i]; b[i]:=b[j]; b[j]:=m;
    inc(i); dec(j);
   end;
  until i>j;
 qsort(l,j);
 qsort(i,r);
end;

procedure main;
var i,k,j:longint;
begin
 k:=0;
 max:=-maxlongint;
 for i:=1 to n do
  begin
    if k-b[i]>max then max:=k-b[i];
    k:=k+a[i];
  end;
 write(max);
end;

begin
 assign(input,'acrobat.in');reset(input);
 assign(output,'acrobat.out');rewrite(output);
 init;
 qsort(1,n);
 main;
 close(input); close(output);
end.