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[..,..]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:= to m do
       begin
          for j:= to n do begin read(c);if c='' then a[i,j]:=false else a[i,j]:=true; end;
          read(c);read(c);if c='' then a[i,n+]:=false else a[i,n+]:=true;
          readln;
       end;
    ans:=;flag:=true;
    for i:= 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+ do begin t:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=t; end;
          for j:= to m do
             if (j<>i) and a[j,i] then
                for k:=i to n+ do a[j,k]:=a[j,k] xor a[i,k];
        end;
    if flag then begin writeln(ans);for i:= to n do if a[i,n+] then writeln('?y7M#') else writeln('Earth'); end else write('Cannot Determine');
    close(input);close(output);
 end.