废话不多说,这个题目为二分图最大匹配:把n行每一行看成一个点,共有n个点;把m列每一列看成一个点,共有m个点。当格子为灰色时,把这个格子所属的行的点与列的点连边,这样就构成一个二分图。
VAR
cover:array[1..10000]of boolean;
link,v:array[1..10000]of longint;
map:array[1..10000,1..100]of longint;
i,m,n,maxp:longint;
Procedure init;
var
i,j:longint;
s:string;
begin
fillchar(v,sizeof(v),0);
readln(n,m);
for i:=1 to n do
begin
readln(s);
for j:=1 to m do
if s[j]='1'then
begin
inc(v[i]);
map[i,v[i]]:=n+j;
inc(v[n+j]);
map[n+j,v[n+j]]:=i;
end;
end;
end;
Function find(i:longint):boolean;
var
q,k,m:longint;
begin
find:=true;
for k:=1 to v[i] do
begin
m:=map[i,k];
if not cover[m] then
begin
q:=link[m];link[m]:=i;cover[m]:=true;
if (q=0)or find(q) then exit;
link[m]:=q;
end;
end;
exit(false);
end;
Begin
init;
for i:=1 to m+n do
begin
fillchar(cover,sizeof(cover),0);
find(i);
end;
maxp:=0;
for i:=1 to m+n do if link[i]<>0 then inc(maxp);
writeln(maxp div 2);
End.