USACO1.3 混合牛奶Mixing Milk

USACO 1.3 混合牛奶 (贪心)

Description

牛奶包装是一个如此低利润的生意,所以尽可能低的控制初级产品(牛奶)的价格变的十分重要。 

请帮助快乐的牛奶制造者(Merry Milk Makers)以可能的最廉价的方式取得他们所需的牛奶。 

快乐的牛奶制造公司从一些农民那购买牛奶，每个农民卖给牛奶制造公司的价格不一定相同。 

而且,如一只母牛一天只能生产一定量的牛奶,农民每一天只有一定量的牛奶可以卖。 

每天,快乐的牛奶制造者从每个农民那购买一定量的牛奶,少于或等于农民所能提供的最大值。 

给出快乐牛奶制造者的每日的牛奶需求,连同每个农民的可提供的牛奶量和每加仑的价格,请计算快乐的牛奶制造者所要付出钱的最小值。 

注意: 

每天农民生产的牛奶的总数对快乐的牛奶制造者来说足够的。 

分析

    贪心： 按单价排序后直接算可得最优解。

时间复杂度

    O（n logn）

代码

    const
  maxn=2000000;
var
  a,b:array[0..maxn] of longint;
  m,ans,i,n:longint;


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


begin
  readln(m,n);
  for i:=1 to n do
    readln(a[i],b[i]);
  qsort(1,n);
  for i:=1 to n do
    if b[i]<=m
      then begin
             ans:=ans+a[i]*b[i];
             dec(m,b[i]);
           end
      else begin
             ans:=ans+a[i]*m;
             break;
           end;
  writeln(ans);
end.