biology——并查集
烦人的生物（biology）
题目描述
最后一题了，当然是要让我们的jz出场了（jz就是zj，zj就是jz，至于为什么……&），处于某种ws的对知识的渴望，jz非常喜欢生物。
现在jz发现自己本身就是个非常纠结的动物，jz发现如果把自身的细胞排成一排，根据细胞某种性质的不同，可将细胞分成两类，如果将这两类细胞分别用0/1表示，就得到了一个能表示自身细胞的0/1串。jz发现了自身的0/1是个奇妙的东西，就决定出个题来恶心你。
他会告诉你自身0/1串的长度m，和给出你的描述0/1串的语句条数n。
每条语句都符合以下格式：
a, ,b, ,even/odd
表示自身 0/1串中第a~b位上数字的和是偶数/奇数
jz想让你说出最早出现的与前面描述矛盾的语句是谁，你能解决这个问题吗？
输入格式
第一行，一个整数m，表示jz自身0/1串的长度
第二行，一个整数n,表示jz给出的语句数目。
第三行~，共n行，为jz给出的语句，保证按上文所述格式给出。
输出格式
输出zj最早说出的与前面语句矛盾的语句的位置-1
Eg：如果该语句是第2句，输出1
如果没有矛盾，则输出n
样例输入
10
5
1 2 even
3 4 odd
5 6 even
1 6 even
7 10 odd
样例输出
3
数据范围
40% m<=1000000
100% m<=maxlongint
100% n<=5000
分析：
这道题，比较烦人了，
是一道那种点表示区间的题目。
并查集点们来判断给的条件是否正确。
每一个点，
拆成两个点来表示状态，
一种是偶的状态，一种是奇的状态，
用已知条件来判断矛盾。
program biology;
const
hashtmp:longint=8997;
con:longint=10000;
var
fa:array[0..20000]of longint;
hash:array[0..9000]of longint;
n,m,k,l,i,j,a,b:longint;
s:string;
function change(x:longint):longint;
var
t:longint;
begin
t:=x mod hashtmp;
if t<=0 then t:=t+hashtmp;
while (hash[t]<>-1)and(hash[t]<>x)do t:=(t+1)mod hashtmp;
hash[t]:=x;
exit(t);
end;
function getfa(x:longint):longint;
begin
if fa[x]=x then exit(x);
fa[x]:=getfa(fa[x]);
exit(fa[x]);
end;
procedure union(x,y:longint);
var
r1,r2:longint;
begin
r1:=getfa(x);
r2:=getfa(y);
if (r1<>r2) then fa[r1]:=r2;
end;
begin
assign(input,'biology.in');
reset(input);
assign(output,'biology.out');
rewrite(output);
readln(l);
readln(n);
for i:=1 to 20000 do fa[i]:=i;
for i:=1 to 9000 do hash[i]:=-1;
for i:=1 to n do
begin
read(a,b);readln(s);
a:=change(a-1);b:=change(b);
if s=' even' then
begin
if (getfa(a)=getfa(b+con))or(getfa(a+con)=getfa(b)) then
begin
writeln(i-1);
close(input);
close(output);
halt;
end;
union(a,b);
union(a+con,b+con);
end
else begin
if (getfa(a)=getfa(b))or(getfa(a+con)=getfa(b+con)) then
begin
writeln(i-1);
close(input);
close(output);
halt;
end;
union(a,b+con);
union(a+con,b);
end;
end;
writeln(n);
close(input);
close(output);
end.