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

 

 1 var

 2     a:array[0..200,0..200]of byte;

 3     link,flag:array[0..200]of byte;

 4     n,p,i,t,time:byte;

 5  

 6 procedure init;

 7 var

 8     i,j:byte;

 9 begin

10     read(n);

11     for i:=1 to n do

12       for j:=1 to n do

13         read(a[i,j]);

14     time:=0;

15     for i:=1 to n do

16       begin

17         flag[i]:=0;

18         link[i]:=0;

19       end;

20 end;

21  

22 function path(x:byte):byte;

23 var

24     i:byte;

25 begin

26     for i:=1 to n do

27       if (a[x,i]=1)and(flag[i]<>time) then

28       begin

29         flag[i]:=time;

30         if (link[i]=0)or(path(link[i])=1) then

31         begin

32           link[i]:=x;

33           exit(1);

34         end;

35       end;

36     exit(0);

37 end;

38  

39 procedure work;

40 var

41     i:byte;

42 begin

43     p:=0;

44     for i:=1 to n do

45       begin

46         inc(time);

47         if path(i)=1 then inc(p)

48         else break;

49       end;

50     if p=n then writeln('Yes')

51     else writeln('No');

52 end;

53  

54 begin

55     read(t);

56     for i:=1 to t do

57       begin

58         init;

59         work;

60       end;

61 end.

View Code