bzoj1923[Sdoi2010]外星千足虫（高斯消元）

Description

Input

第一行是两个正整数 N, M。 接下来 M行，按顺序给出 Charles 这M次使用“点足机”的统计结果。每行 包含一个“01”串和一个数字，用一个空格隔开。“01”串按位依次表示每只虫 子是否被放入机器：如果第 i 个字符是“0”则代表编号为 i 的虫子未被放入，“1” 则代表已被放入。后面跟的数字是统计的昆虫足数 mod 2 的结果。 由于 NASA的实验机器精确无误，保证前后数据不会自相矛盾。即给定数据 一定有解。

Output

在给定数据存在唯一解时有 N＋1行，第一行输出一个不 超过M的正整数K，表明在第K 次统计结束后就可以确定唯一解；接下来 N 行 依次回答每只千足虫的身份，若是奇数条足则输出“?y7M#”（火星文），偶数 条足输出“Earth”。如果输入数据存在多解，输出“Cannot Determine”。 所有输出均不含引号，输出时请注意大小写。

Sample Input

3 5
011 1
110 1
101 0
111 1
010 1

Sample Output

4
Earth
?y7M#
Earth

HINT

对于 20%的数据，满足 N＝M≤20； 
对于 40%的数据，满足 N＝M≤500； 
对于 70%的数据，满足 N≤500，M≤1,000； 
对于 100%的数据，满足 N≤1,000，M≤2,000。 

==========================================================
请不要提交!

Source

第一轮Day1

裸的高斯消元，听说1000^3过不了，要bitset压位才能过，pascal蒟蒻表示很害怕，然而发现不压位就过了。

program rrr(input,output);
var
  a:array[0..2020,0..1010]of boolean;
  n,m,i,j,k,ans:longint;
  c:char;
  flag,t:boolean;
begin
   assign(input,'r.in');assign(output,'r.out');reset(input);rewrite(output);
   readln(n,m);
   for i:=1 to m do
      begin
         for j:=1 to n do begin read(c);if c='0' then a[i,j]:=false else a[i,j]:=true; end;
         read(c);read(c);if c='0' then a[i,n+1]:=false else a[i,n+1]:=true;
         readln;
      end;
   ans:=0;flag:=true;
   for i:=1 to n do
      begin
         for k:=i to m do if a[k,i] then break;
         if not a[k,i] then begin flag:=false;break; end;
         if k>ans then ans:=k;
         for j:=i to n+1 do begin t:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=t; end;
         for j:=1 to m do
            if (j<>i) and a[j,i] then
               for k:=i to n+1 do a[j,k]:=a[j,k] xor a[i,k];
       end;
   if flag then begin writeln(ans);for i:=1 to n do if a[i,n+1] then writeln('?y7M#') else writeln('Earth'); end else write('Cannot Determine');
   close(input);close(output);
end.