博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
3399: [Usaco2009 Mar]Sand Castle城堡
阅读量:6847 次
发布时间:2019-06-26

本文共 1899 字,大约阅读时间需要 6 分钟。

3399: [Usaco2009 Mar]Sand Castle城堡

Time Limit: 3 Sec  Memory Limit: 128 MB
Submit: 37  Solved: 32
[ ][ ][ ]

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

 

题解:又是一道石(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 type11     arr=array[0..100000] of longint;12 var13    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           begin18                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           begin23                i:=l;j:=r;x:=a[(l+r) div 2];24                repeat25                      while a[i]
x do dec(j);27 if i<=j then28 begin29 swap(a[i],a[j]);30 inc(i);dec(j);31 end;32 until i>j;33 if i
=x then exit(int64(k)*int64(y-x)) else exit(int64(l)*int64(x-y));39 end;40 begin41 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.

 

转载于:https://www.cnblogs.com/HansBug/p/4470489.html

你可能感兴趣的文章
dubbo源码分析-服务端发布流程-笔记
查看>>
阿里云发布Apsara SA系列混合云存储阵列
查看>>
GoJS教程:链接模版
查看>>
QListWidget方式显示缩略图
查看>>
金三银四:蚂蚁金服JAVA后端面试题及答案之二面
查看>>
Ubuntu 外网不通解决方案
查看>>
OSChina 周六乱弹 —— 历史总是惊人的相似
查看>>
MySQL 大小写
查看>>
div块上下左右居中
查看>>
eclipse远程debug tomcat
查看>>
CentOs6.5基本环境配置(六):Maven配置
查看>>
Python 创建Django项目
查看>>
JS获取当前项目的根路径
查看>>
操作系统引导区代码
查看>>
程序员有五种错误不应犯
查看>>
无线认证知识点
查看>>
基于python的REST框架eve测试与mongodb的数据操作
查看>>
epoll模型的理解封装与应用
查看>>
Lync 2013部署图片赏析-证书服务安装配置
查看>>
HTML5 本地缓存 (web存储)
查看>>