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.
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.