BZOJ 1828
program bzoj1828;
const maxn=;
check=; type node=record
l,r,s,a:longint;
end; var t:array [..maxn*] of node;
a,b,c:array [..maxn] of longint;
n,m,i,ans,mini:longint; procedure swap(var x,y:longint);
begin
x:=x xor y;
y:=x xor y;
x:=x xor y;
end; procedure qsort(l,r:longint);
var i,j,mia,mib:longint;
begin
i:=l; j:=r;
mia:=a[(l+r) shr ]; mib:=b[(l+r) shr ];
while i<=j do
begin
while (b[i]<mib) or (b[i]=mib) and (a[i]<mia) do inc(i);
while (b[j]>mib) or (b[j]=mib) and (a[j]>mia) do dec(j);
if i<=j then
begin
swap(a[i],a[j]);
swap(b[i],b[j]);
inc(i);
dec(j);
end;
end;
if i<r then qsort(i,r);
if j>l then qsort(l,j);
end; function min(x,y:longint):longint;
begin
if x<y then exit(x)
else exit(y);
end; procedure build(l,r,i:longint);
var mid:longint;
begin
t[i].l:=l;
t[i].r:=r;
if l=r then
begin
t[i].s:=c[l];
exit;
end;
mid:=(l+r)>>;
build(l,mid,i<<);
build(mid+,r,i<<+);
t[i].s:=min(t[i<<].s,t[i<<+].s);
end; procedure pass(i,add:longint);
var lch,rch:longint;
begin
lch:=i shl ;
rch:=lch+;
inc(t[lch].s,add);
inc(t[rch].s,add);
inc(t[lch].a,add);
inc(t[rch].a,add);
t[i].a:=;
end; procedure change(l,r,add,i:longint);
var mid:longint;
begin
if (t[i].l=l)and(t[i].r=r) then
begin
inc(t[i].s,add);
inc(t[i].a,add);
exit;
end;
if t[i].a<> then pass(i,t[i].a);
mid:=(t[i].l+t[i].r)>>;
if r<=mid then change(l,r,add,i<<)
else
if l>mid then change(l,r,add,i<<+)
else
begin
change(l,mid,add,i<<);
change(mid+,r,add,i<<+);
end;
t[i].s:=min(t[i<<].s,t[i<<+].s);
end; function getans(l,r,i:longint):longint;
var mid,ans1,ans2:longint;
begin
if t[i].a<> then pass(i,t[i].a);
if (t[i].l=l)and(t[i].r=r) then exit(t[i].s);
ans1:=check;
ans2:=check;
mid:=(t[i].l+t[i].r)>>;
if r<=mid then ans1:=getans(l,r,i<<)
else
if l>mid then ans2:=getans(l,r,i<<+)
else
begin
ans1:=getans(l,mid,i<<);
ans2:=getans(mid+,r,i<<+);
end;
exit(min(ans1,ans2));
end; begin
read(n,m);
for i:= to n do read(c[i]);
build(,n,);
for i:= to m do read(a[i],b[i]);
sort(,m);
for i:= to m do
begin
mini:=getans(a[i],b[i],);
if mini> then
begin
inc(ans);
change(a[i],b[i],-,);
end;
end;
writeln(ans);
end.
BZOJ 1828的更多相关文章
- BZOJ 1828 [Usaco2010 Mar]balloc 农场分配(贪心+线段树)
[题目链接] http://www.lydsy.com/JudgeOnline/problem.php?id=1828 [题目大意] 现在有一些线段[l,r]的需求需要满足,i位置最多允许a[i]条线 ...
- BZOJ 1828: [Usaco2010 Mar]balloc 农场分配
Description Input 第1行:两个用空格隔开的整数:N和M * 第2行到N+1行:第i+1行表示一个整数C_i * 第N+2到N+M+1行: 第i+N+1行表示2个整数 A_i和B_i ...
- bzoj 1828: [Usaco2010 Mar]balloc 农场分配【贪心+线段树】
长得挺唬人的贪心,按照右端点排序,用最小值线段树的询问判断当前牛是否能放进去,能的话更新线段树,ans++ 来自https://www.cnblogs.com/rausen/p/4529245.htm ...
- bzoj usaco 金组水题题解(1)
UPD:我真不是想骗访问量TAT..一开始没注意总长度写着写着网页崩了王仓(其实中午的时候就时常开始卡了= =)....损失了2h(幸好长一点的都单独开了一篇)....吓得赶紧分成两坨....TAT. ...
- USACO 刷题记录bzoj
bzoj 1606: [Usaco2008 Dec]Hay For Sale 购买干草——背包 #include<cstdio> #include<cstring> #incl ...
- 【BZOJ】1828: [Usaco2010 Mar]balloc 农场分配(经典贪心)
[算法]贪心+线段树 [题意]给定n个数字ci,m个区间[a,b](1<=a,b<=10^5),每个位置最多被ci个区间覆盖,求最多选择多少区间. 附加退化问题:全部ci=1,即求最多的不 ...
- 【BZOJ】1707: [Usaco2007 Nov]tanning分配防晒霜
[算法]贪心扫描线(+堆) [题意]给定n头牛有区间[a,b],m个防晒霜值为ai,每个可以使用bi次,每次可以使包含它的区间涂到防晒霜,问最多被涂牛数. [题解] 参考:[bzoj1707]: [U ...
- BZOJ 2127: happiness [最小割]
2127: happiness Time Limit: 51 Sec Memory Limit: 259 MBSubmit: 1815 Solved: 878[Submit][Status][Di ...
- BZOJ 3275: Number
3275: Number Time Limit: 10 Sec Memory Limit: 128 MBSubmit: 874 Solved: 371[Submit][Status][Discus ...
随机推荐
- .NET 多语言支持解决方案 (转)
asp.net 2.0中的App_GlobalResources可以用来解决本地化的问题,程序会根据浏览器的语言首选项自动判断显示出本地化的界面. 首先在App_GlobalResources新建re ...
- App引导页面源代码的实现
一.页面效果图
- BZOJ 1208: [HNOI2004]宠物收养所(BST)
本来想先用set写一遍,再自己写个splay或treap,不过用set过了之后就懒得去写了....以后有空再来写吧..(不会有空的吧= = ------------------------------ ...
- 嵌入式linux的网络编程(1)--TCP/IP协议概述
嵌入式linux的网络编程(1)--TCP/IP协议概述 1.OSI参考模型及TCP/IP参考模型 通信协议用于协调不同网络设备之间的信息交换,它们建立了设备之间互相识别的信息机制.大家一定都听说过著 ...
- cocos2dx中Action汇总
本文由qinning199原创, 转载请注明:http://www.cocos2dx.net/?p=119 今天总结一下cocos2dx中的一些Action动作,其中To表示到达某个点,而By表示偏移 ...
- 5.7.1.2 eval() 方法
现在我们介绍最后一个方法,这大概是ECMAScript语言中最强大的一个方法:eval().eval()方法就想一个完整的ECMAScript解析器,它只接受一个参数,即要执行的ECMAScript( ...
- ASP.NET MVC 中的 T4
每次使用“添加视图”或“添加控制器”功能时,您都在 ASP.NET MVC 项目中使用 T4 模板.这些模板位于 Common7\IDE\ItemTemplates\CSharp\Web\MVC 2\ ...
- LATEX使用之字体颜色深浅不一
今天用Ctex写论文,发现出来的pdf在屏幕上会出现字体颜色深浅不一的现象. google一下之后,在饮水思源bbs上找到了解决方法,用latex+dvitopdf来编译就不会有这个现象了. 另外,对 ...
- AngularJS的启动引导过程
原文:http://www.angularjs.cn/A137?utm_source=ourjs.com 目录: 引导之前 自动引导启动框架 手工引导启动框架 引导第1步:创建注入器 引导第2步:创建 ...
- 脑波设备mindwave介绍
脑波,又称之为脑电波,是人大脑发出的电波,非常的微弱,只能通过设备来检测. 人的脑波在不同状态下,会不同,因此可以通过脑波来量化分析人的精神状态. 科学家讲脑电波分为四种,以下为详细解释(摘自百度百科 ...