1059: [ZJOI2007]矩阵游戏

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[0..200,0..200]of byte;
    link,flag:array[0..200]of byte;
    n,p,i,t,time:byte;
 
procedure init;
var
    i,j:byte;
begin
    read(n);
    for i:=1 to n do
      for j:=1 to n do
        read(a[i,j]);
    time:=0;
    for i:=1 to n do
      begin
        flag[i]:=0;
        link[i]:=0;
      end;
end;
 
function path(x:byte):byte;
var
    i:byte;
begin
    for i:=1 to n do
      if (a[x,i]=1)and(flag[i]<>time) then
      begin
        flag[i]:=time;
        if (link[i]=0)or(path(link[i])=1) then
        begin
          link[i]:=x;
          exit(1);
        end;
      end;
    exit(0);
end;
 
procedure work;
var
    i:byte;
begin
    p:=0;
    for i:=1 to n do
      begin
        inc(time);
        if path(i)=1 then inc(p)
        else break;
      end;
    if p=n then writeln('Yes')
    else writeln('No');
end;
 
begin
    read(t);
    for i:=1 to t do
      begin
        init;
        work;
      end;
end.