让我们继续来练网络流；

很明显是一个最大流的问题；

二分枚举最多次数m，然后最大流判定；

具体就是男生女生都拆成两个点i1，i2，之间连一条流量为k的边（男生i1-->i2,女生i2-->i1);

i2连不喜欢的人，i1连喜欢的人

最后，男生i1连源点流量为m，女生i1连汇点流量为m

最后判断最大流是否等于n*m即可

但做着做着，我发现好像好像二分+最大流不是很优，因为进行了很多重复操作

但我也没管，先A了再说；

后来看status发现很多人代码很短，用时0ms（我的最大流180ms）

肯定有更简单的方法：

贪心！……其实是错的……

1 code(using maxflow)：  2 type node=record  3        next,point,flow:longint;  4      end;  5   6 var edge:array[0..200010] of node;  7     a:array[0..60,0..60] of boolean;  8     cur,pre,p,numh,h:array[0..400] of longint;  9     j,m,n,k,i,len,t,ans,l,r:longint; 10     c:string; 11  12 function min(a,b:longint):longint; 13   begin 14     if a>b then exit(b) else exit(a); 15   end; 16  17 procedure add(x,y,f:longint); 18   begin 19     inc(len); 20     edge[len].flow:=f; 21     edge[len].point:=y; 22     edge[len].next:=p[x]; 23     p[x]:=len; 24   end; 25  26 function sap(m:longint):boolean; 27   var s,u,tmp,i,j,q:longint; 28   begin 29     len:=-1; 30     fillchar(p,sizeof(p),255); 31     for i:=1 to n do 32     begin 33       add(0,i,m); 34       add(i,0,m); 35       add(i+2*n,t,m); 36       add(t,i+2*n,0); 37       add(i,i+n,k); 38       add(i+n,i,0); 39       add(i+3*n,i+2*n,k); 40       add(i+2*n,i+3*n,0); 41     end; 42     for i:=1 to n do 43       for j:=1 to n do 44         if a[i,j] then 45         begin 46           add(i,j+2*n,1); 47           add(j+2*n,i,0); 48         end 49         else begin 50           add(i+n,j+3*n,1); 51           add(j+3*n,i+n,0); 52         end; 53     fillchar(numh,sizeof(numh),0); 54     fillchar(h,sizeof(h),0); 55     numh[0]:=t+1; 56     u:=0; 57     s:=0; 58     while h[0]
      
       t do 64         begin 65           j:=cur[i]; 66           dec(edge[j].flow); 67           inc(edge[j xor 1].flow); 68           i:=edge[j].point; 69         end; 70         u:=0; 71         inc(s); 72         if s=n*m then exit(true); 73       end; 74       q:=-1; 75       i:=p[u]; 76       while i<>-1 do 77       begin 78         j:=edge[i].point; 79         if (edge[i].flow>0) and (h[u]=h[j]+1) then 80         begin 81           q:=i; 82           break; 83         end; 84         i:=edge[i].next; 85       end; 86       if q<>-1 then 87       begin 88         cur[u]:=q; 89         pre[j]:=u; 90         u:=j; 91       end 92       else begin 93         dec(numh[h[u]]); 94         if numh[h[u]]=0 then exit(false); 95         tmp:=t+1; 96         i:=p[u]; 97         while i<>-1 do 98         begin 99           j:=edge[i].point;100           if edge[i].flow>0 then tmp:=min(tmp,h[j]);101           i:=edge[i].next;102         end;103         h[u]:=tmp+1;104         inc(numh[h[u]]);105         if u<>0 then u:=pre[u];106       end;107     end;108     exit(false);109   end;110 111 begin112   readln(n,k);113   for i:=1 to n do114   begin115     readln(c);116     for j:=1 to n do117     begin118       if c[j]='Y' then a[i,j]:=true119       else a[i,j]:=false;120     end;121   end;122   t:=n*4+1;123   l:=1;124   r:=n;125   ans:=0;126   while l<=r do127   begin128     m:=(l+r) shr 1;129     if sap(m) then130     begin131       ans:=m;132       l:=m+1;133     end134     else r:=m-1;135   end;136   writeln(ans);137 end.