7.5 魔板

 

7.5 魔板

源程序名            panel.???（pas, c, cpp） 可执行文件名        panel.exe 输入文件名          panel.in 输出文件名          panel.out

【问题描述】

       有这样一种魔板：它是一个长方形的面板，被划分成n行m列的n*m个方格。每个方格内有一个小灯泡，灯泡的状态有两种(亮或暗)。我们可以通过若干操作使魔板从一个状态改变为另一个状态。操作的方式有两种：

       （1）任选一行，改变该行中所有灯泡的状态，即亮的变暗、暗的变亮；

       （2）任选两列，交换其位置。

       当然并不是任意的两种状态都可以通过若干操作来实现互相转化的。

       你的任务就是根据给定两个魔板状态，判断两个状态能否互相转化。

【输入】

       文件中包含多组数据。第一行一个整数k，表示有k组数据。

    每组数据的第一行两个整数n和m。(0<n，m≤100)

    以下的n行描述第一个魔板。每行有m个数字(0或1)，中间用空格分隔。若第x行的第y个数字为0，则表示魔板的第x行y列的灯泡为“亮”；否则为“暗”。

    然后的n行描述第二个魔板。数据格式同上。

    任意两组数据间没有空行。

【输出】

       共k行，依次描述每一组数据的结果。

       若两个魔板可以相互转化，则输出YES，否则输出NO。(注意：请使用大写字母)

【样例】

       panel.in                                      panel.out

       2                                               YES

       3 4                                             NO

       0 1 0 1

       1 0 0 1

       0 0 0 0

       0 1 0 1

       1 1 0 0

       0 0 0 0

       2 2

       0 0

       0 1

       1 1

       1 1

【问题分析】

    用改变第一个魔板的方法来得到第二个魔板。

    枚举每一个列交换到第一列的情况。第一列确定以后，每一行是否应该变色也就确定下来了。然后再检查每一列是否与目标状态的每一列存在一一对应，如果存在一一对应，两个魔板就可以互相转化。

var a,b,c:array[0..100,0..100] of longint;
v:array[0..100] of boolean;
n,m,i,sum,cao:longint;
procedure fuck(i:longint);
var j:longint;
begin
 for j:=1 to m do
  a[i,j]:=abs(a[i,j]-1);
end;
procedure change(j:longint);
var i,k:longint;
begin
 for i:=1 to n do
  begin
   k:=a[i,j]; a[i,j]:=a[i,1]; a[i,1]:=k;
  end;
 for i:=1 to n do
  if a[i,1]<>b[i,1] then fuck(i);
end;
function find(i:longint):boolean;
var j,k:longint;
begin
 for j:=2 to m do
  if not v[j] then
   begin
   for k:=1 to n do
    if b[k,j]<>a[k,i] then break;
   if b[n,j]=a[n,i] then //fuck 
   if k=n then begin v[j]:=true;  {writeln(i,' ',j);} exit(true); end;
   end;
 find:=false;
end;
function right:boolean;
var i,j:longint;
begin
 for i:=1 to n do
  if a[i,1]<>b[i,1] then exit(false);
 for i:=2 to m do
  if not find(i) then exit(false);
 exit(true);
end;
procedure main;
var i,j,k:longint;
begin
 readln(n,m);
 for i:=1 to n do
  begin
  for j:=1 to m do
   read(a[i,j]);
  readln;
  end;
 for i:=1 to n do
  begin
  for j:=1 to m do
   read(b[i,j]);
  readln;
  end;
 for j:=1 to m do
  begin
   c:=a;
   change(j); fillchar(v,sizeof(v),0);
   if right then begin writeln('YES'); exit; end;
   a:=c;
  end;
 writeln('NO');
end;
begin
 assign(input,'panel.in'); assign(output,'panel.out');
 reset(input); rewrite(output);
 readln(sum);
 for i:=1 to sum do
  main;
 close(input); close(output);
end.