bzoj 1196 二分+生成树判定
我们先二分一个答案,对于每个答案,先加一级公路,如果不够k直接break,
然后再加二级公路,加的过程类似Kruskal。
/**************************************************************
Problem:
User: BLADEVIL
Language: Pascal
Result: Accepted
Time: ms
Memory: kb
****************************************************************/
//By BLADEVIL
var
n, m, k :longint;
pre1, succ1, c1, c2 :array[..] of longint;
pre2, succ2 :array[..] of longint;
father :array[..] of longint;
ans :longint;
procedure swap(var a,b:longint);
var
c :longint;
begin
c:=a; a:=b; b:=c;
end;
procedure qs1(low,high:longint);
var
i, j, xx :longint;
begin
i:=low; j:=high;
xx:=c1[(i+j) div ];
while i<j do
begin
while c1[i]<xx do inc(i);
while c1[j]>xx do dec(j);
if i<=j then
begin
swap(pre1[i],pre1[j]);
swap(succ1[i],succ1[j]);
swap(c1[i],c1[j]);
inc(i); dec(j);
end;
end;
if i<high then qs1(i,high);
if j>low then qs1(low,j);
end;
procedure qs2(low,high:longint);
var
i, j, xx :longint;
begin
i:=low; j:=high;
xx:=c2[(i+j) div ];
while i<j do
begin
while c2[i]<xx do inc(i);
while c2[j]>xx do dec(j);
if i<=j then
begin
swap(pre2[i],pre2[j]);
swap(succ2[i],succ2[j]);
swap(c2[i],c2[j]);
inc(i); dec(j);
end;
end;
if i<high then qs2(i,high);
if j>low then qs2(low,j);
end;
procedure init;
var
i :longint;
begin
read(n,k,m);
for i:= to m- do
begin
read(pre1[i],succ1[i],c1[i],c2[i]);
pre2[i]:=pre1[i]; succ2[i]:=succ1[i];
end;
qs1(,m-);
qs2(,m-);
end;
function getfather(x:longint):longint;
begin
if father[x]=x then exit(x);
father[x]:=getfather(father[x]);
exit(father[x]);
end;
procedure main;
var
l, r, mid :longint;
i :longint;
fa, fb, a, b :longint;
cnt :longint;
begin
l:=; r:=;
while l<=r do
begin
mid:=(l+r) div ;
cnt:=;
for i:= to n do father[i]:=i;
for i:= to m- do
begin
if c1[i]>mid then break;
a:=pre1[i]; b:=succ1[i];
fa:=getfather(a); fb:=getfather(b);
if fa<>fb then
begin
father[fa]:=fb;
inc(cnt);
end;
end;
for i:= to m- do
begin
if (cnt<k) or (c2[i]>mid) then break;
a:=pre2[i]; b:=succ2[i];
fa:=getfather(a); fb:=getfather(b);
if fa<>fb then
begin
father[fa]:=fb;
inc(cnt);
end;
end;
if cnt<n- then l:=mid+ else
begin
ans:=mid;
r:=mid-;
end;
end;
writeln(ans);
end;
begin
init;
main;
end.
bzoj 1196 二分+生成树判定的更多相关文章
- BZOJ 1196 二分答案+并查集
http://www.lydsy.com/JudgeOnline/problem.php?id=1196 题目大意:n个城市,m-1条路,每条路有一级公路和二级公路之分,你要造n-1条路,一级公路至少 ...
- BZOJ 1196 二分+Kruskal
思路: 二分答案 判一下能不能加 //By SirisuRen #include <cstdio> #include <cstring> #include <algori ...
- bzoj 1196
http://www.lydsy.com/JudgeOnline/problem.php?id=1196 二分+并查集 一共有2*M条路径,我们首先将这2*M条路径按费用排序. 然后二分最大费用的公路 ...
- bzoj 1196 公路修建问题
bzoj 1196: [HNOI2006]公路修建问题 Description OI island是一个非常漂亮的岛屿,自开发以来,到这儿来旅游的人很多.然而,由于该岛屿刚刚开发不久,所以那里的交通情 ...
- [NOIP 2010] 关押罪犯 (二分+二分图判定 || 并查集)
题目描述 S 城现有两座监狱,一共关押着N 名罪犯,编号分别为1~N.他们之间的关系自然也极不和谐.很多罪犯之间甚至积怨已久,如果客观条件具备则随时可能爆发冲突.我们用"怨气值"( ...
- BZOJ 1196 [HNOI2006]公路修建问题:二分 + 贪心生成树check(类似kruskal)
题目链接:http://www.lydsy.com/JudgeOnline/problem.php?id=1196 题意: n个城市,m对城市之间可以修公路. 公路有两种,一级公路和二级公路,在第i对 ...
- bzoj 1189 二分+最大流判定
首先我们可以二分一个答案时间T,这样就将最优性问题 转化为了判定性问题.下面我们考虑对于已知的T的判定 对于矩阵中所有的空点bfs一次,得出来每个点到门的距离, 然后连接空点和每个能在t时间内到达的门 ...
- BZOJ 1196 [HNOI2006]公路修建问题(二分答案+并查集)
[题目链接] http://www.lydsy.com/JudgeOnline/problem.php?id=1196 [题目大意] 对于每条可能维修的公路可选择修一级公路或者二级公路,价值不同 要求 ...
- bzoj 1196: [HNOI2006]公路修建问题 二分+并查集
题目链接 1196: [HNOI2006]公路修建问题 Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 1576 Solved: 909[Submit ...
随机推荐
- asp.net中分页与存储过程的一些总结
一.接上文,使用的是jquery AJAX 进行分页 分页存储过程代码如下: ALTER PROCEDURE [dbo].[USP_GetAlbumByPage] @pageIndex int,--当 ...
- jQuery基础知识--选择器与效果
$(this).hide()-----隐藏当前元素 $("p").hide()------隐藏所有段落 $(".test").hide()--隐藏所有class ...
- 【原】SBT构建Scala应用
[转帖] 原文地址:https://github.com/CSUG/real_world_scala/blob/master/02_sbt.markdown 尊重版权,尊重他人劳动成果,转帖请注明原文 ...
- PIL不能关闭文件的解决方案
今天写了一个能指定图片尺寸,以及比例 来搜索分类图片的Python脚本.为了读取多个格式的文件的头,采用了Python PIL库. im = PIL.Image.open(imPath) if im的 ...
- flask学习
安装环境: centos 6.3 python2.6 使用easy_install安装方式: [root@localhost ~]# easy_install flask 简单的hello from ...
- psql: 致命错误: 用户 "postgres" Ident 认证失败
RedHat: 问题: psql -U postgres 时出现:psql: 致命错误: 用户 "postgres" Ident 认证失败 解决: 修改 /var/lib/pgs ...
- next permutaion算法
算法描述: Find largest index i such that array[i − 1] < array[i]. Find largest index j such that j ≥ ...
- 微信支付开发,再次签名,APP调用
1.商户服务器生成支付订单,先调用[统一下单API]生成预付单,获取到prepay_id后将参数再次签名传输给APP发起支付. 再次生成签名的时候,按照接口: https://pay.weixin.q ...
- HTML5的placeholder属性如何实现换行
在HTML5中,placeholder是一个非常有用的属性,当控件中无内容时可以代替UI控件的提示功能,而不需要写额外的代码.但如果有一个textarea控件,我们需要多行的文本提示信息时,使用”\n ...
- ios多线程的几种创建方式以及基本使用
1.第一种,NSThread方法,此方法使用很少! 2.NSOperation,面向对象的多线程技术 3. NSObject多线程技术 4.苹果推荐使用的GCD技术 5.GDC中的队列