zoukankan      html  css  js  c++  java
  • bzoj 1059 二分图匹配

    我们知道,对于每一行来说,交换行,是不改变这行的状态的,

    交换列只是改变颜色的顺序,对于颜色的个数也没有改变,列

    也同样存在这一性质

    那么最后我们要求的是主对角线上都是黑色,也就是每行选一个黑

    色的,且任意两行选的黑色的不在同一列,我们构造一张二分图,

    图的一边是行,另一边是列,所以对于每个黑点连边,二分图匹配即可

    //By BLADEVIL
    var
        t                                :longint;
        i                                :longint;
        pre, other                        :array[0..40010] of longint;
        last                            :array[0..300] of longint;
        l                                :longint;
        flag                            :array[0..300] of boolean;
        link                            :array[0..300] of longint;
        
    procedure connect(x,y:longint);
    begin
        inc(l);
        pre[l]:=last[x];
        last[x]:=l;
        other[l]:=y;
    end;
    
    function find(x:longint):boolean;
    var
        q, p                            :longint;
    begin
        q:=last[x];
        while q<>0 do 
        begin
            p:=other[q];
            if not flag[p] then
            begin
                flag[p]:=true;
                if (link[p]=0) or (find(link[p])) then
                begin
                    link[p]:=x;
                    exit(true);
                end;
            end;
            q:=pre[q];
        end;
        exit(false);
    end;
        
    procedure main;
    var
        n                                :longint;
        i, j                            :longint;
        x                                :longint;
    begin
        read(n);
        l:=0;
        fillchar(last,sizeof(last),0);
        for i:=1 to n do 
            for j:=1 to n do 
            begin
                read(x);
                if x=1 then connect(i,j);
            end;
        fillchar(link,sizeof(link),0);
        
        for i:=1 to n do 
        begin
            fillchar(flag,sizeof(flag),false);
            if not find(i) then
            begin
                writeln('No');
                exit;
            end;
        end;
        writeln('Yes');
    end;
        
        
    begin
        read(t);
        for i:=1 to t do main;
    
    end.
  • 相关阅读:
    ●SPOJ 8222 NSUBSTR–Substrings(后缀自动机)
    ●SPOJ 1811 Longest Common Substring
    ●POJ 1509 Glass Beads
    ●BZOJ 4556 [Tjoi2016&Heoi2016]字符串
    ●BOZJ 2229 [Zjoi2011]最小割
    ●BOZJ 4456 [Zjoi2016]旅行者
    ●观光(17.12.02多校联测题目)
    ●BZOJ 2007 NOI 2010 海拔
    mysql--->B+tree索引的设计原理
    mysql--->权限管理原理和设置
  • 原文地址:https://www.cnblogs.com/BLADEVIL/p/3490068.html
Copyright © 2011-2022 走看看