3399: [Usaco2009 Mar]Sand Castle城堡

3399: [Usaco2009 Mar]Sand Castle城堡

Time Limit: 3 Sec  Memory Limit: 128 MB

Submit: 37  Solved: 32

[Submit][Status][Discuss]

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

题解:又是一道石(sang)破(xin)天(bing)惊(kuang)的贪心,原来就是排个序算下就好了= =(HansBug:越来越发现这类贪心题才最逗比有木有TT)

 1 /**************************************************************
 2     Problem: 3399
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:40 ms
 7     Memory:1008 kb
 8 ****************************************************************/
 9  
10 type
11     arr=array[0..100000] of longint;
12 var
13    i,j,k,l,m,n:longint;
14    a,b:arr;ans:int64;
15 procedure swap(var x,y:longint);
16           var z:longint;
17           begin
18                z:=x;x:=y;y:=z;
19           end;
20 procedure sort(l,r:longint;var a:arr);
21           var i,j,x,y:longint;
22           begin
23                i:=l;j:=r;x:=a[(l+r) div 2];
24                repeat
25                      while a[i]<x do inc(i);
26                      while a[j]>x do dec(j);
27                      if i<=j then
28                         begin
29                              swap(a[i],a[j]);
30                              inc(i);dec(j);
31                         end;
32                until i>j;
33                if i<r then sort(i,r,a);
34                if l<j then sort(l,j,a);
35           end;
36 function cal(x,y:longint):int64;
37          begin
38               if y>=x then exit(int64(k)*int64(y-x)) else exit(int64(l)*int64(x-y));
39          end;
40 begin
41      readln(n,k,l);
42      for i:=1 to n do readln(a[i],b[i]);
43      sort(1,n,a);sort(1,n,b);
44      ans:=0;
45      for i:=1 to n do inc(ans,cal(a[i],b[i]));
46      writeln(ans);
47      readln;
48 end.

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏个人分享

Socket与Http方式解析发送xml消息封装中间件jar包

  最近项目代码中太多重复的编写Document,不同的接口需要不同的模板,于是重写提取公共部分打成jar包,方便各个系统统一使用~

1603
来自专栏HansBug's Lab

1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪

1643: [Usaco2007 Oct]Bessie's Secret Pasture 贝茜的秘密草坪 Time Limit: 5 Sec  Memory L...

3404
来自专栏HansBug's Lab

3098: Hash Killer II

3098: Hash Killer II Time Limit: 5 Sec  Memory Limit: 128 MBSec  Special Judge S...

2966
来自专栏数据结构与算法

BZOJ4269: 再见Xor(线性基)

给定N个数,你可以在这些数中任意选一些数出来,每个数可以选任意多次,试求出你能选出的数的异或和的最大值和严格次大值。

704
来自专栏算法channel

用Word排版伪代码out了,推荐这个工具

多少次你看到别人的的伪代码排版如此完美而惊艳,心中不免好奇,怎么设计的?今天,和大家一起学习一款流行的排版利器:CTeX

1.3K0
来自专栏小樱的经验随笔

BZOJ 1257: [CQOI2007]余数之和sum【神奇的做法,思维题】

1257: [CQOI2007]余数之和sum Time Limit: 5 Sec  Memory Limit: 162 MB Submit: 4474  So...

2644
来自专栏码匠的流水账

聊聊flink的EventTime

flink-streaming-java_2.11-1.7.0-sources.jar!/org/apache/flink/streaming/api/func...

3322
来自专栏Golang语言社区

GoLang语言--的函数运用

首先要学习一下go 语言的变量定义等等 我把代码copy一下 package mainimport ("fmt") type Books struct{ ...

3649
来自专栏小樱的经验随笔

BZOJ 3097: Hash Killer I【构造题,思维题】

3097: Hash Killer I Time Limit: 5 Sec  Memory Limit: 128 MBSec  Special Judge Su...

2126
来自专栏小樱的经验随笔

POJ 2209 The King(简单贪心)

The King Time Limit: 2000MS Memory Limit: 65536K Total Submissions: 7499...

2844

扫码关注云+社区

领取腾讯云代金券