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：网络流题目注意边的方向，切忌把方向弄反!!!）

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     point=^node;
     node=record
                g,w:longint;
                next,anti:point;
     end;
 var
    i,j,k,l,m,n,ans,s,t:longint;
    a:array[..] of point;
    c,d,dv:array[..] of longint;
 function min(x,y:longint):longint;inline;
          begin
               if x<y then min:=x else min:=y;
          end;
 procedure add(x,y,z:longint);inline;
           var p:point;
           begin
                new(p);p^.g:=y;p^.w:=z;p^.next:=a[x];a[x]:=p;
                new(p);p^.g:=x;p^.w:=;p^.next:=a[y];a[y]:=p;
                a[x]^.anti:=a[y];a[y]^.anti:=a[x];
           end;
 function dfs(x,flow:longint):longint;inline;
          var i,j,k,l:longint;p:point;
          begin
               if x=t then exit(flow);
               dfs:=;p:=a[x];
               while p<>nil do
                     begin
                          if (p^.w>) and (d[x]=(d[p^.g]+)) then
                             begin
                                  k:=dfs(p^.g,min(flow-dfs,p^.w));
                                  dec(p^.w,k);
                                  inc(p^.anti^.w,k);
                                  inc(dfs,k);
                                  if dfs=flow then exit;
                             end;
                          p:=p^.next;
                     end;
               if d[s]=n then exit;
               dec(dv[d[x]]);
               if dv[d[x]]= then d[s]:=n;
               inc(d[x]);
               inc(dv[d[x]]);
          end;
 begin
      readln(n,m);s:=;t:=n+;
      for i:= to n+ do a[i]:=nil;
      for i:= to n do
          begin
               read(c[i]);
               if c[i]= then add(,i+,) else add(i+,n+,);
          end;
      readln;
      for i:= to m do
          begin
               readln(j,k);
               if c[j]= then add(j+,k+,) else add(k+,j+,);
          end;
      n:=n+;
      ans:=;
      fillchar(d,sizeof(d),);
      fillchar(dv,sizeof(dv),);dv[]:=n;
      while d[s]<n do inc(ans,dfs(s,maxlongint));
      writeln(ans);
      readln;
 end.