[Usaco2009 Mar]Sand Castle城堡
Time Limit: 3 Sec Memory Limit: 128 MB
Description
约翰用沙子建了一座城堡.正如所有城堡的城墙,这城墙也有许多枪眼,两个相邻枪眼中间那部分叫作“城齿”. 城墙上一共有N(1≤N≤25000)个城齿,每一个都有一个高度Mi.(1≤尬≤100000).现在约翰想把城齿的高度调成某种顺序下的Bi,B2,…,BN(I≤Bi≤100000). -个城齿每提高一个单位的高度,约翰需要X(I≤X≤100)元;每降低一个单位的高度,约翰需要Y(1≤y≤100)元. 问约翰最少可用多少钱达到目的.数据保证答案不超过2^32.
Input
第1行输入3个整数N,X,Y.
第2到N+1行每行输入两个整数Mi和Bi.
Output
最少花费.
Sample Input
3 6 5
3 1
1 2
1 2
Sample Output
11
HINT
第1个城齿降低1,第2个城齿提高1
Source
Silver
题解
- 贪心
var
x:array[0..25000,1..2]of longint;
i,j,n,a,b,ans:longint;
procedure sort(l,r,z: longint);
var i,j,mid,y: longint;
begin
i:=l; j:=r; mid:=x[(l+r) div 2,z];
repeat
while x[i,z]<mid do inc(i);
while mid<x[j,z] do dec(j);
if not(i>j) then
begin
y:=x[i,z]; x[i,z]:=x[j,z]; x[j,z]:=y;
inc(i); dec(j);
end;
until i>j;
if l<j then sort(l,j,z);
if i<r then sort(i,r,z);
end;
begin
readln(n,a,b);
for i:=1 to n do
readln(x[i,1],x[i,2]);
sort(1,n,1); sort(1,n,2);
for i:=1 to n do
if x[i,1]>x[i,2]
then inc(ans,b*(x[i,1]-x[i,2]))
else dec(ans,a*(x[i,1]-x[i,2]));
writeln(ans);
end.