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
011 1
110 1
101 0
111 1
010 1
Sample Output
4
Earth
?y7M#
Earth
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.