1059: [ZJOI2007]矩阵游戏 - BZOJ

Description

小Q是一个非常聪明的孩子，除了国际象棋，他还很喜欢玩一个电脑益智游戏——矩阵游戏。矩阵游戏在一个N*N黑白方阵进行（如同国际象棋一般，只是颜色是随意的）。每次可以对该矩阵进行两种操作：行交换操作：选择矩阵的任意两行，交换这两行（即交换对应格子的颜色）列交换操作：选择矩阵的任意行列，交换这两列（即交换对应格子的颜色）游戏的目标，即通过若干次操作，使得方阵的主对角线(左上角到右下角的连线)上的格子均为黑色。对于某些关卡，小Q百思不得其解，以致他开始怀疑这些关卡是不是根本就是无解的！！于是小Q决定写一个程序来判断这些关卡是否有解。
Input

第一行包含一个整数T，表示数据的组数。接下来包含T组数据，每组数据第一行为一个整数N，表示方阵的大小；接下来N行为一个N*N的01矩阵（0表示白色，1表示黑色）。
Output

输出文件应包含T行。对于每一组数据，如果该关卡有解，输出一行Yes；否则输出一行No。
Sample Input
2
2
0 0
0 1
3
0 0 1
0 1 0
1 0 0
Sample Output
No
Yes
【数据规模】
对于20%的数据，N ≤ 7
对于50%的数据，N ≤ 50
对于100%的数据，N ≤ 200

想了半天，最后手写了几个才想到

我们要选出n个点使得，两两没有公共行和列

所以用行和列做二分图匹配

如果最大匹配是n就输出Yes，否则输出No

 var
     a:array[..,..]of byte;
     link,flag:array[..]of byte;
     n,p,i,t,time:byte;

 procedure init;
 var
     i,j:byte;
 begin
     read(n);
     for i:= to n do
       for j:= to n do
         read(a[i,j]);
     time:=;
     for i:= to n do
       begin
         flag[i]:=;
         link[i]:=;
       end;
 end;

 function path(x:byte):byte;
 var
     i:byte;
 begin
     for i:= to n do
       if (a[x,i]=)and(flag[i]<>time) then
       begin
         flag[i]:=time;
         if (link[i]=)or(path(link[i])=) then
         begin
           link[i]:=x;
           exit();
         end;
       end;
     exit();
 end;

 procedure work;
 var
     i:byte;
 begin
     p:=;
     for i:= to n do
       begin
         inc(time);
         if path(i)= then inc(p)
         else break;
       end;
     if p=n then writeln('Yes')
     else writeln('No');
 end;

 begin
     read(t);
     for i:= to t do
       begin
         init;
         work;
       end;
 end.