BZOJ1934: [Shoi2007]Vote 善意的投票

1934: [Shoi2007]Vote 善意的投票

Time Limit: 1 Sec  Memory Limit: 64 MB
Submit: 1076  Solved: 660
[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

题解：

这题怎么这么神！

膜拜hzwer的题解：

构建源S,汇T
然后S->一开始投同意的xpy,一开始投反对票的xpy ->T
流量均为1
然后对于一个朋友关系(a,b) 添加双向边，流量依然为1
最后割即为冲突数
(1) 冲突数不大于 n:
很显然，哪怕所有xpy之间都存在朋友关系，xpy可以通过改变(或不改变)原先的决定到达全“同意”或全“否定”，那么朋友之间的冲突数为0，而未被自己先前决定的冲突数不大于n
(2) “同意”集合和“否定”集合之间的边全部是朋友关系
(3) 冲突是同意与不同意之间的割

代码：

const inf=maxlongint;
type node=record
     from,go,next,v:longint;
     end;
var  tot,i,j,n,m,maxflow,l,r,s,t,x,y:longint;
     h,head,q,cur:array[0..1000] of longint;
     e:array[0..200000] of node;
     function min(x,y:longint):longint;
      begin
      if x<y then exit(x) else exit(y);
      end;
procedure ins(x,y,z:longint);
 begin
 inc(tot);
 e[tot].from:=x;e[tot].go:=y;e[tot].v:=z;e[tot].next:=head[x];head[x]:=tot;
 end;
procedure insert(x,y,z:longint);
 begin
 ins(x,y,z);ins(y,x,0);
 end;
function bfs:boolean;
 var i,x,y:longint;
 begin
 fillchar(h,sizeof(h),0);
 l:=0;r:=1;q[1]:=s;h[s]:=1;
 while l<r do
  begin
  inc(l);
  x:=q[l];
  i:=head[x];
  while i<>0 do
   begin
   y:=e[i].go;
   if (e[i].v<>0) and (h[y]=0) then
    begin
     h[y]:=h[x]+1;
     inc(r);q[r]:=y;
    end;
   i:=e[i].next;
   end;
  end;
 exit (h[t]<>0);
 end;
function dfs(x,f:longint):longint;
 var i,y,used,tmp:longint;
 begin
 if x=t then exit(f);
 used:=0;
 i:=cur[x];
 while i<>0 do
  begin
  y:=e[i].go;
  if (h[y]=h[x]+1) and (e[i].v<>0) then
   begin
   tmp:=dfs(y,min(e[i].v,f-used));
   dec(e[i].v,tmp);if e[i].v<>0 then cur[x]:=i;
   inc(e[i xor 1].v,tmp);
   inc(used,tmp);
   if used=f then exit(f);
   end;
  i:=e[i].next;
  end;
 if used=0 then h[x]:=-1;
 exit(used);
 end;
procedure dinic;
 begin
 while bfs do
  begin
  for i:=s to t do cur[i]:=head[i];
  inc(maxflow,dfs(s,inf));
  end;
 end;
procedure init;
 begin
 tot:=1;
 readln(n,m);
 s:=0;t:=n+1;
 for i:=1 to n do
  begin
  read(x);
  if x=0 then insert(s,i,1)
  else insert(i,t,1);
  end;
 readln;
 for i:=1 to m do begin readln(x,y);insert(x,y,1);insert(y,x,1);end;
 end;
procedure main;
 begin
 maxflow:=0;
 dinic;
 writeln(maxflow);
 end;
begin
 assign(input,'input.txt');assign(output,'output.txt');
 reset(input);rewrite(output);
 init;
 main;
 close(input);close(output);
end.