[BZOJ3399] [Usaco2009 Mar]Sand Castle城堡

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

你可能感兴趣的:([BZOJ3399] [Usaco2009 Mar]Sand Castle城堡)