【2012.03.3普及组】烤饼干

题目描述

NOIP烤饼干时两面都要烤，而且一次可以烤R(1<=R<=10)行C(1<=C<=10000)列个饼干，当一面烤到规定时间时，机器会把整个翻过来以接着烤另一面。

有一天，正当机器准备翻饼干时发生了地震，有一些饼干被翻了过来，有一些没有。幸运的是，你可以手工操作，一次可以同时翻若干行或者若干列，但不能单独翻某一个饼干。

写一个程序计算通过翻转使得最终翻过来的饼干的数量得最大值。

例如下图是地震之后的情况，黑点表示未翻转，白点表示已经翻转：

翻转第一行后得到:

接着翻转第1列和第5列得到下图：

这样可以使得9个饼干翻转过来。

题解：

  因为最多有十行，所以枚举每一行，而每一列翻转后白比黑多就翻。

代码：

var  n,m,s:longint;  a:array[0..10,0..100000] of longint;procedure main(x:longint);var  i,j,t:longint;  f:array[0..100000] of longint;begin  if x=n+1 then    begin      f[0]:=0;      for i:=1 to m do        begin          t:=0;          for j:=1 to n do            t:=t+a[j,i];          f[i]:=f[i-1];          if t>n-t then            f[i]:=f[i]+t          else            f[i]:=f[i]+n-t;        end;      if f[m]>s then s:=f[m];      exit;    end;  main(x+1);  for i:=1 to m do     if a[x,i]=1 then       a[x,i]:=0     else       a[x,i]:=1;  main(x+1);  for i:=1 to m do    if a[x,i]=1 then      a[x,i]:=0    else      a[x,i]:=1;end;var  i,j:longint;begin  readln(n,m);  for i:=1 to n do    for j:=1 to m do      read(a[i,j]);  main(1);  writeln(s);end.