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

分析：

这道题，比较烦人了，

是一道那种点表示区间的题目。

并查集点们来判断给的条件是否正确。

每一个点，

拆成两个点来表示状态，

一种是偶的状态，一种是奇的状态，

用已知条件来判断矛盾。

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

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.