1339 / 1163: [Baltic2008]Mafia
时间:2022-05-08
本文章向大家介绍1339 / 1163: [Baltic2008]Mafia,主要内容包括1163: [Baltic2008]Mafia、Description、Input、Output、Sample Input、Sample Output、HINT、Source、基本概念、基础应用、原理机制和需要注意的事项等,并结合实例形式分析了其使用技巧,希望通过本文能帮助到大家理解应用这部分内容。
1163: [Baltic2008]Mafia
Time Limit: 10 Sec Memory Limit: 162 MB
Submit: 96 Solved: 60
Description
匪徒准备从一个车站转移毒品到另一个车站,警方准备进行布控. 对于每个车站进行布控都需要一定的代价,现在警方希望使用最小的代价控制一些车站,使得去掉这些车站后,匪徒无法从原定的初始点到达目标点
Input
第一行输入N,M代表车站的总个数,及有多少条双向边连接它们. 2<=n<=200 , 1 <=m<=20000. 第二行给出两个数a,b,代表匪徒的出发点及目标点.1<=a,b<=N,a<>b. 再下来有N行,给出对第i个车站进行布控所需要的Money,其不超过10 000 000 再下来M行,用于描述图的结构.
Output
最少需要多少Money
Sample Input
5 6 5 3 2 4 8 3 10 1 5 1 2 2 4 4 5 2 3 3 4
Sample Output
5
HINT
Source
题解:一个呵呵呵的最小割,将每个题目中的车站拆分成两个点,然后连接上一条边权为该站点费用的边,然后别的题目中所述的边直接连双向边,注意别弄乱了就是了
1 /**************************************************************
2 Problem: 1163
3 User: HansBug
4 Language: Pascal
5 Result: Accepted
6 Time:156 ms
7 Memory:2652 kb
8 ****************************************************************/
9
10 type
11 point=^node;
12 node=record
13 g,w:longint;
14 next,anti:point;
15 end;
16 var
17 i,j,k,l,m,n,s,t,ans:longint;
18 a:array[0..5000] of point;
19 d,dv:array[0..5000] of longint;
20 function min(x,y:longint):longint;
21 begin
22 if x<y then min:=x else min:=y;
23 end;
24 procedure add(x,y,z:longint);
25 var p:point;
26 begin
27 new(p);p^.g:=y;p^.w:=z;p^.next:=a[x];a[x]:=p;
28 new(p);p^.g:=x;p^.w:=0;p^.next:=a[y];a[y]:=p;
29 a[x]^.anti:=a[y];a[y]^.anti:=a[x];
30 end;
31 function dfs(x,flow:longint):longint;
32 var p:point;k:longint;
33 begin
34 if x=t then exit(flow);
35 dfs:=0;p:=a[x];
36 while p<>nil do
37 begin
38 if (p^.w<>0) and (d[x]=(d[p^.g]+1)) then
39 begin
40 k:=dfs(p^.g,min(flow-dfs,p^.w));
41 if p^.w<>maxlongint then dec(p^.w,k);
42 if p^.anti^.w<>maxlongint then inc(p^.anti^.w,k);
43 inc(dfs,k);if dfs=flow then exit;
44 end;
45 p:=p^.next;
46 end;
47 if d[s]=n then exit;
48 dec(dv[d[x]]);
49 if dv[d[x]]=0 then d[s]:=n;
50 inc(d[x]);inc(dv[d[x]]);
51 end;
52 begin
53 readln(n,m);
54 for i:=1 to n*2 do a[i]:=nil;
55 readln(s,t);s:=s*2-1;t:=t*2;
56 for i:=1 to n do
57 begin
58 readln(j);
59 add(i*2-1,i*2,j);
60 end;
61 for i:=1 to m do
62 begin
63 readln(j,k);
64 add(j*2,k*2-1,maxlongint);
65 add(k*2,j*2-1,maxlongint);
66 end;
67 fillchar(dv,sizeof(dv),0);
68 fillchar(d,sizeof(d),0);
69 ans:=0;n:=n*2;
70 while d[s]<n do inc(ans,dfs(s,maxlongint));
71 writeln(ans);
72 readln;
73 end.
- Jenkins Pipeline插件十大最佳实践!
- Spring Cloud Hystrix的请求合并
- JQuery JCshare 0.1 分享插件
- Java中的即时编译(Just-in-time compilation)
- 无尽的忙碌换来幸福的日子
- 消费者驱动的微服务契约测试套件:Spring Cloud Contract
- 自己做的一个小程序 可采集、导出、模板、配置
- 分布式消息队列 RocketMQ 源码分析 —— Message 拉取与消费(上)
- .NET反射、委托技术与设计模式
- 我最常用的Intellij IDEA快捷键
- 用Js控制TextBox不能复制粘贴
- 漫画:什么是单例模式?(整合版)
- 保护连接字符串
- IntelliJ IDEA 复杂的重构技巧(二)
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- 微信小程序开发实战(25):预览图像
- 【Pytorch】笔记三:数据读取机制与图像预处理模块
- 表白利器,马赛克拼贴照片制作
- 【014期】JavaSE面试题(十四):基本IO流
- 微信小程序开发实战(24):选择图像
- 反 996 有理:催程序员交代码,写不出好软件
- 一千个不用 Null 的理由!
- WebAssembly 是 Deno 的好搭档
- Chrome开发者工具的11个高级使用技巧
- 怒爬某破Hub站资源,简单4步撸个鉴黄平台!
- 审阅“史上”最烂的代码
- BeanUtils 是用 Spring 的还是 Apache 的好?
- 一看就会的mysql索引优化(真实案例)
- 【015期】JavaSE面试题(十五):网络IO流
- 算法篇:二分查找基础篇