ZJOI2007矩阵游戏

我们应该通过思考得到这样一个性质：如果一个点被选了，那么与它同行同列的点都不能选

然后就是裸的二分图匹配了……

（我应该能想出这道题来的，可是看了看题觉得没思路就去看题解了，唉……以后这种水题自己一定要动脑想想！）

代码：这种水题应该1A吧

var i,j,n,t:longint;
    flag:boolean;
    p:array[0..250] of longint;
    v:array[0..250] of boolean;
    a:array[0..250,0..250] of longint;
function find(x:longint):boolean;
 var i:longint;
 begin
  for i:=1 to n do
   if (not(v[i])) and (a[x,i]=1) then
     begin
       v[i]:=true;
       if (p[i]=0) or (find(p[i])) then
         begin
           p[i]:=x;
           exit(true);
         end;
     end;
  exit(false);
 end;
procedure init;
 begin
   readln(n);
   fillchar(p,sizeof(p),0);
   for i:=1 to n do
    begin
      for j:=1 to n do read(a[i,j]);
      readln;
    end;
 end;
procedure main;
 begin
   flag:=true;
   for i:=1 to n do
    begin
      fillchar(v,sizeof(v),false);
      if not(find(i)) then begin flag:=false;break;end;
    end;
   if flag then writeln('Yes') else writeln('No');
 end;

begin
  readln(t);
  while t>0 do
   begin
     dec(t);
     init;
     main;
   end;
end.