1934: [Shoi2007]Vote 善意的投票

1934: [Shoi2007]Vote 善意的投票

Time Limit: 1 Sec  Memory Limit: 64 MB

Submit: 1174  Solved: 723

[Submit][Status]

Description

幼儿园里有n个小朋友打算通过投票来决定睡不睡午觉。对他们来说,这个问题并不是很重要,于是他们决定发扬谦让精神。虽然每个人都有自己的主见,但是为了照顾一下自己朋友的想法,他们也可以投和自己本来意愿相反的票。我们定义一次投票的冲突数为好朋友之间发生冲突的总数加上和所有和自己本来意愿发生冲突的人数。 我们的问题就是,每位小朋友应该怎样投票,才能使冲突数最小?

Input

第一行只有两个整数n,m,保证有2≤n≤300,1≤m≤n(n-1)/2。其中n代表总人数,m代表好朋友的对数。文件第二行有n个整数,第i个整数代表第i个小朋友的意愿,当它为1时表示同意睡觉,当它为0时表示反对睡觉。接下来文件还有m行,每行有两个整数i,j。表示i,j是一对好朋友,我们保证任何两对i,j不会重复。

Output

只需要输出一个整数,即可能的最小冲突数。

Sample Input

3 3 1 0 0 1 2 1 3 3 2

Sample Output

1

HINT

在第一个例子中,所有小朋友都投赞成票就能得到最优解

Source

Day2

题解:一道网络流题——将选1的小朋友与源点相连,0的与汇点相连,小朋友之间为朋友的连边,所有边权为1,直接一边sap搞定(PS:网络流题目注意边的方向,切忌把方向弄反!!!)

 1 /**************************************************************
 2     Problem: 1934
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:60 ms
 7     Memory:3484 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,ans,s,t:longint;
18    a:array[0..100000] of point;
19    c,d,dv:array[0..100000] of longint;
20 function min(x,y:longint):longint;inline;
21          begin
22               if x<y then min:=x else min:=y;
23          end;
24 procedure add(x,y,z:longint);inline;
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;inline;
32          var i,j,k,l:longint;p:point;
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                                  dec(p^.w,k);
42                                  inc(p^.anti^.w,k);
43                                  inc(dfs,k);
44                                  if dfs=flow then exit;
45                             end;
46                          p:=p^.next;
47                     end;
48               if d[s]=n then exit;
49               dec(dv[d[x]]);
50               if dv[d[x]]=0 then d[s]:=n;
51               inc(d[x]);
52               inc(dv[d[x]]);
53          end;
54 begin
55      readln(n,m);s:=1;t:=n+2;
56      for i:=1 to n+2 do a[i]:=nil;
57      for i:=1 to n do
58          begin
59               read(c[i]);
60               if c[i]=1 then add(1,i+1,1) else add(i+1,n+2,1);
61          end;
62      readln;
63      for i:=1 to m do
64          begin
65               readln(j,k);
66               if c[j]=1 then add(j+1,k+1,1) else add(k+1,j+1,1);
67          end;
68      n:=n+2;
69      ans:=0;
70      fillchar(d,sizeof(d),0);
71      fillchar(dv,sizeof(dv),0);dv[0]:=n;
72      while d[s]<n do inc(ans,dfs(s,maxlongint));
73      writeln(ans);
74      readln;
75 end.

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

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏数据结构与算法

BZOJ2659: [Beijing wc2012]算不出的算式(数学)

925
来自专栏aCloudDeveloper

string 之 strlen函数

Author: bakari  Date: 2012/8/9 近两年好多的IT公司喜欢拿一些库函数来考,string函数库当然是首选,除此之外,像qsort,S...

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

Day3上午解题报告

预计分数:100+40+50=190 实际分数:100+40+50=190 T1 https://www.luogu.org/problem/show?pid=...

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

BZOJ2152: 聪聪可可(点分治)

聪聪和可可是兄弟俩,他们俩经常为了一些琐事打起来,例如家中只剩下最后一根冰棍而两人都想吃、两个人都想玩儿电脑(可是他们家只有一台电脑)……遇到这种问题,一般情况...

933
来自专栏HansBug's Lab

1624: [Usaco2008 Open] Clear And Present Danger 寻宝之路

1624: [Usaco2008 Open] Clear And Present Danger 寻宝之路 Time Limit: 5 Sec  Memory L...

3296
来自专栏ml

hdu-----(4514)湫湫系列故事——设计风景线(树形DP+并查集)

湫湫系列故事——设计风景线 Time Limit: 6000/3000 MS (Java/Others)    Memory Limit: 65535/3276...

3828
来自专栏ml

HDUOJ-----4506小明系列故事——师兄帮帮忙

小明系列故事——师兄帮帮忙 Time Limit: 3000/1000 MS (Java/Others)    Memory Limit: 65535/3276...

2857
来自专栏HansBug's Lab

1230: [Usaco2008 Nov]lites 开关灯

1230: [Usaco2008 Nov]lites 开关灯 Time Limit: 10 Sec  Memory Limit: 162 MB Submit: ...

2808
来自专栏lonelydawn的前端猿区

Node.js力破江苏网警刑侦科推理试题

月前,江苏网警 在微博发布了一套《2018年刑侦科目推理试题》,可谓难倒了诸多英雄好汉,评论区内更是一片皮皮之音。 @二向箔icon: 高考前班主任教过我们,...

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

BZOJ1061: [Noi2008]志愿者招募(线性规划)

  申奥成功后,布布经过不懈努力,终于成为奥组委下属公司人力资源部门的主管。布布刚上任就遇到了一个难

1284

扫码关注云+社区