高中Oj1434. 灌水

https://jzoj.net/senior/#main/show/1434

这道题的暴力是显然的，我们只需对上一次灌水做一个标记，判断是被灌了奇数次还是偶数次，奇数次的再去改变其他人的状态即可。

注意，这里n<=20，那么对于每一个人的标记总数只有2^20种，而h却为10^9，很明显我们可以采取周期策略。

如下图：

代码：

var        date,value:Array[0..1500000] of int64;        x:array[1..20] of longint;        bz:array[1..20] of boolean;        ch:array[1..20,1..20] of char;        n,h,i,j,k,ans,sum,w,xmod,xdiv:Longint;begin        readln(n,h);        for i:=1 to n do        begin                for j:=1 to n do                        read(ch[i,j]);                readln;        end;        for i:=1 to n do                if ch[1,i]='1' then                begin                        bz[i]:=true;                        inc(ans);                end;        for k:=1 to h-1 do        begin                w:=0;                for i:=1 to n do                        if bz[i] then inc(w,1 shl (i-1));                if date[w]=0 then                begin                        date[w]:=k;                        value[k]:=ans;                end                else                begin                        value[k]:=ans;                        xmod:=(h-k) mod (k-date[w]);                        xdiv:=(h-k) div (k-date[w]);                        writeln(xdiv*(value[k]-value[date[w]])+value[date[w]+xmod]-value[date[w]]+value[k]);                        halt;                end;                fillchar(x,sizeof(x),0);                sum:=0;                for i:=1 to n do                        if bz[i] then                        begin                                for j:=1 to n do                                        if ch[i,j]='1' then                                        begin                                                inc(x[j]);                                                inc(sum);                                        end;                        end                        else                        begin                                for j:=1 to n do                                        if ch[i,j]='1' then inc(sum,2);                        end;                inc(ans,sum);                fillchar(bz,sizeof(bz),0);                for i:=1 to n do                        if x[i] mod 2=1 then bz[i]:=true;        end;        writeln(ans);end.