Codevs 3052 多米诺 (二分图染色+二分图最大匹配)

一个多米诺占用相邻的两个

那么把相邻的两个分开的话,就可以把一个多米诺看做一个成立的二分图匹配

于是把棋盘进行二分图染色,染成黑白棋牌的那种,即一个格子与它上下左右的格子颜色不同

所以我们就把每个格子与它上下左右的格子连边,连边的条件就是这两个格子都是可以放的

(因为只有二分图左右两边的都是可以放的格子才可以把匹配看做一张多米诺)

然后跑匈牙利算法就可以了=w=

const
        walk:array[1..4,1..2] of longint=((1,0),(-1,0),(0,1),(0,-1));
var
        n,m,k,a,b,ans      :longint;
        c,d                :longint;
        i,j,ll,l           :longint;
        co                 :array[0..2510] of longint;
        vis                :array[0..2510] of boolean;
        link,last          :array[0..2510] of longint;
        pre,other          :array[0..20010] of longint;
        map                :array[0..2510] of boolean;
procedure connect(x,y:longint);
begin
   inc(l);
   pre[l]:=last[x];
   last[x]:=l;
   other[l]:=y;
end;

procedure dfs(x,t:longint);
var
        p,q:longint;
begin
   co[x]:=t;
   t:=t xor 1;
   q:=last[x];
   while (q<>0) do
   begin
      p:=other[q];
      if (co[p]=-1) then dfs(p,t);
      q:=pre[q];
   end;
end;

function find(x:longint):boolean;
var
        p,q:longint;
begin
   q:=last[x];
   while (q<>0) do
   begin
      p:=other[q];
      if not vis[p] then
      begin
         vis[p]:=true;
         if (link[p]=0) or (find(link[p])) then
         begin
            link[p]:=x;exit(true);
         end;
      end;
      q:=pre[q];
   end;
   exit(false);
end;

begin
   read(n,m);read(k);
   for i:=1 to k do
   begin
      read(a,b);
      map[(a-1)*m+b]:=true;
   end;
   for i:=1 to n do
    for j:=1 to m do
     if not map[(i-1)*m+j] then
     begin
        for ll:=1 to  4 do
        begin
           a:=i+walk[ll,1];
           b:=j+walk[ll,2];
           if (a>=1) and (b>=1) and (a<=n) and (b<=m) and not map[(a-1)*m+b] then
           begin
              connect((i-1)*m+j,(a-1)*m+b);
              connect((a-1)*m+b,(i-1)*m+j);
           end;
        end;
     end;
    //
    for i:=1 to n*m do co[i]:=-1;
    for i:=1 to n*m do
     if (co[i]=-1) then dfs(i,0);
    //
    for i:=1 to n*m do
     if co[i]=0 then
    begin
       fillchar(vis,sizeof(vis),false);
       if find(i) then inc(ans);
    end;
    //
    writeln(ans);
end.
——by Eirlys 

转载请注明出处=w=
Codevs 3052 多米诺 (二分图染色+二分图最大匹配)_第1张图片

你可能感兴趣的:(二分图匹配)