SSL P1124 火力网加强版

题目大意：

城市由n行n列正方形的地块组成，每一块表示为一个街道或一堵墙。
碉堡就是一个小的城堡，有四个用于射击的口子分别朝着东、南、西、北方向射击。
　
在城市上放置一些碉堡，使得没有两个碉堡可以互相破坏。碉堡的合法配置就是没有两个碉堡在同一行或同一列上，除非它们之间至少有一堵墙隔在中间。在题目中我们考虑小的正方形城市（最多4×4）包含墙，使得子弹不能穿越。
例：
下图中在[1,2],[3,1],[3,2]有障碍，问最多能放几个碉堡

n≤10

题解：

匈牙利算法：
这题数据那么小，bfs秒？
其实这题可以用到二分图匹配，一开始我想的是把行列分成2个子集，结果发现有障碍，后来尝试用点，发现代码量好长。。。（无力吐槽）
然后我就发现，
我们可以自行的去构建很多个独立的行，即每一行被障碍分成了很多个小块，把这些小块给标记
然后继续构建很多个独立的列，同理。
然后我们要求的就是这些独立行与独立列构成的连边的二分图的最大匹配，因为每匹配到一条边，其实就等价于加入了一个点到图中。

代码：

const
     maxn=100;

var
     map:Array [0..maxn+1,0..maxn+1] of boolean;
     xp,xq,cover:array [0..maxn+1] of boolean;
     link:array [0..maxn+1] of longint;
     c,d:array [0..11,0..11] of longint;
     a:array [0..11,0..11] of char;
     ans,i,j,n,cp,op:longint;

function find(x:longint):boolean;
var
     q,i:longint;
begin
     for i:=1 to n*n do
        if map[x,i] and not(cover[i]) then
        begin
             q:=link[i];
             link[i]:=x;
             cover[i]:=true;
             if (q=0) or find(q) then exit(true);
             link[i]:=q;
        end;
     exit(false);
end;

procedure work(x,y:longint);
var
    i:longint;
begin
    if y=1 then
    begin
          for i:=1 to n do
            if a[x,i]='.'
               then begin
                        if a[x,i-1]<>'.' then inc(cp);
                        c[x,i]:=cp;
                    end;

    end else
    begin
          for i:=1 to n do
            if a[i,x]='.'
               then begin
                        if a[i-1,x]<>'.' then inc(op);
                        d[i,x]:=op;
                    end;
    end;
end;

begin
     readln(n);
     for i:=1 to n do
       begin
           for j:=1 to n do read(a[i,j]);
           readln;
       end;
     cp:=0;
     op:=0;
     for i:=1 to n do
     begin
          work(i,1);
          work(i,2);
     end;

     for i:=1 to n do
       for j:=1 to n do
         if a[i,j]='.' then
            map[c[i,j],d[i,j]]:=true;

     for i:=1 to cp do
       begin
            fillchar(cover,sizeof(cover),false);
            if find(i) then inc(ans);
       end;
     writeln(ans);
end.