奶牛晒衣服 (Standard IO)

Description

　　在熊大妈英明的带领下，时针和它的同伴生下了许多牛宝宝。熊大妈决定给每个宝宝都穿上可爱的婴儿装。于是，为牛宝宝洗晒衣服就成了很不爽的事情。
　　圣人王担负起了这个重任。洗完衣服后，你就要弄干衣服。衣服在自然条件下用1的时间可以晒干A点湿度。抠门的熊大妈买了1台烘衣机。使用烘衣机可以让你用1的时间使1件衣服除开自然晒干的A点湿度外，还可烘干B点湿度，但在1的时间内只能对1件衣服使用。

　　N件衣服因为种种原因而不一样湿，现在告诉你每件衣服的湿度，要你求出弄干所有衣服的最少时间（湿度为0为干）。

题解：

一道很明显的二分，已知A，B我们二分出答案，就有k=A*mid(总烘干度),t=B*mid(烘干机的烘干度)，再逐个逐个判断，是否能在mid的时间内烘干完，若不能则求出还需多少，再更新mid就切了。

代码：

var
  n,a,b:longint;
  s:array [0..600000] of int64;
procedure qsort(l,r:longint);
var
  i,j,m,c:longint;
begin
  i:=l;j:=r;
  m:=s[(l+r) div 2];
  repeat
    while s[i]>m do inc(i);
    while s[j]<m do dec(j);
    if i<=j then
      begin
        c:=s[i];s[i]:=s[j];s[j]:=c;
        inc(i);dec(j);
      end;
  until i>j;
  if l<j then qsort(l,j);
  if i<r then qsort(i,r);
end;
function find(t:longint):boolean;
var
  i,x,y:longint;
begin
  x:=0;
  for i:=1 to n do
    begin
      y:=s[i]-t*a;
      if y<=0 then exit(true);
      x:=x+y div b;
      if y mod b<>0 then inc(x);
      if x>t then exit(false);
    end;
end;
procedure main;
var
  l,r,m:longint;
begin
  l:=1;
  r:=(s[1]+1) div a;
  while l<=r do
    begin
      m:=(l+r) div 2;
      if find(m) then r:=m-1
        else l:=m+1;
    end;
  m:=(l+r) div 2;
  if not find(m) then inc(m);
  writeln(m);
end;
var
  i:longint;
begin
  readln(n,a,b);
  for i:=1 to n do
    readln(s[i]);
  qsort(1,n);
  main;
end.