首页 > 代码库 > NOI 2001 & luogu P2024 & POJ 1182食物链

NOI 2001 & luogu P2024 & POJ 1182食物链

2024-09-24 08:47:05   215人阅读

食物链
Time Limit: 1000MS Memory Limit: 10000K
Total Submissions: 71707 Accepted: 21240

Description

动物王国中有三类动物A,B,C，这三类动物的食物链构成了有趣的环形。A吃B， B吃C，C吃A。
现有N个动物，以1－N编号。每个动物都是A,B,C中的一种，但是我们并不知道它到底是哪一种。
有人用两种说法对这N个动物所构成的食物链关系进行描述：
第一种说法是"1 X Y"，表示X和Y是同类。
第二种说法是"2 X Y"，表示X吃Y。
此人对N个动物，用上述两种说法，一句接一句地说出K句话，这K句话有的是真的，有的是假的。当一句话满足下列三条之一时，这句话就是假话，否则就是真话。
1） 当前的话与前面的某些真的话冲突，就是假话；
2） 当前的话中X或Y比N大，就是假话；
3） 当前的话表示X吃X，就是假话。
你的任务是根据给定的N（1 <= N <= 50,000）和K句话（0 <= K <= 100,000），输出假话的总数。

Input

第一行是两个整数N和K，以一个空格分隔。
以下K行每行是三个正整数 D，X，Y，两数之间用一个空格隔开，其中D表示说法的种类。
若D=1，则表示X和Y是同类。
若D=2，则表示X吃Y。

Output

只有一个整数，表示假话的数目。

Sample Input

100 71 101 1 2 1 22 2 3 2 3 3 1 1 3 2 3 1 1 5 5

Sample Output

3

Source

Noi 01
 
 

 

Solution

技术分享

下面是神奇的接链子，还有取模性质的运用

待续……

Codes

 1 program foodchain; 2 var 3    n,k,i,x,a,b,ans:longint; 4    uset,rel:array[0..50000] of longint; 5  6 function find(app:longint):longint; 7 var 8   t:longint; 9 begin10   if uset[app]=0 then exit(app);11   t:=find(uset[app]);12   rel[app]:=(rel[app]+rel[uset[app]]) mod 3;13   uset[app]:=t;14   find:=uset[app];15 end;16 17 function union(a,b:longint):boolean;18 var19   p1,p2:longint;20 21 begin22   p1:=find(a);23   p2:=find(b);24   if p1=p2 then             //之前已经存在关系25     if (rel[b]-rel[a]+3) mod 3<>x-1 then exit(false)26       else exit(true);27 28   uset[p2]:=p1;29   rel[p2]:=(rel[a]+3-rel[b]+x-1) mod 3;30   exit(true);31 end;32 33 begin34     readln(n,k);35 36     for i:= 1 to k do37       begin38           readln(x,a,b);39           if (a>n) or (b>n) or ((x=2) and (a=b)) then inc(ans)40            else  if union(a,b)=false then inc(ans);41       end;42 43     writeln(ans);44 end.

 

NOI 2001 & luogu P2024 & POJ 1182食物链


联系
我们