poj之旅——2976

思路：依然需要确定一个贪心策略，每次贪心地去掉那些对正确率贡献小的考试。如何确定某个考试[a_i, b_i]对总体准确率x的贡献呢？a_i / b_i肯定是不行的，不然例子里的[0,1]会首当其冲被刷掉。在当前准确率为x的情况下，这场考试“额外”对的题目数量是a_i – x
* b_i，当然这个值有正有负，恰好可以作为“贡献度”的测量。于是利用这个给考试排个降序，后k个刷掉就行了。

程序：（切不可直接复制）

var

  n,k,i,l,r,mid:longint;

  a,b:array[0..110000]of longint;

procedure qsort(x,l,r:longint);

var

  mm,i,j,xx,t:longint;

begin

  i:=l;j:=r;mm:=(l+r)shr 1;

  xx:=a[mm]-x*b[mm];

  repeat

    while a[i]-x*b[i]>xx do i:=i+1;

    while a[j]-x*b[j]<xx do j:=j-1;

    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;

       i:=i+1;j:=j-1;

     end;

  until i>j;

  if i<r then qsort(x,i,r);

  if j>l then qsort(x,l,j);

end;

function check(x:longint):boolean;

var

  sa,sb,i:longint;

begin

  qsort(x,1,n);

  sa:=0;sb:=0;

  for i:=1 to n-k do

   begin

     sa:=sa+a[i];sb:=sb+b[i];

   end;

  exit(sa/sb>x);

end;

begin

  readln(n,k);

  while (n+k>0) do

   begin

     for i:=1 to n do begin read(a[i]);a[i]:=a[i]*100000;end;

     for i:=1 to n do read(b[i]);

     l:=0;r:=100000;

     while l<=r do

      begin

        mid:=(l+r)shr 1;

        if check(mid) then l:=mid+1

         else r:=mid-1;

      end;

     writeln(round(l/1000));

     readln(n,k);

   end;

end.