WikiOI 4600 程序自动分析 （哈希+并查集）

4600 [NOI2015]程序自动分析
时间限制: 1 s
空间限制: 256000 KB
题目等级 : 黄金 Gold
题解
查看运行结果
题目描述 Description
在实现程序自动分析的过程中,常常需要判定一些约束条件是否能被同时满足。

考虑一个约束满足问题的简化版本：假设x1,x2,x3,…代表程序中出现的变量，给定n个形如xi=xj或xi≠xj的变量相等/不等的约束条件，请判定是否可以分别为每一个变量赋予恰当的值，使得上述所有约束条件同时被满足。例如，一个问题中的约束条件为：x1=x2，x2=x3，x3=x4，x1≠x4，这些约束条件显然是不可能同时被满足的，因此这个问题应判定为不可被满足。

现在给出一些约束满足问题，请分别对它们进行判定。

输入描述 Input Description
输入文件的第1行包含1个正整数t，表示需要判定的问题个数。注意这些问题之间是相互独立的。

对于每个问题，包含若干行：

第1行包含1个正整数n，表示该问题中需要被满足的约束条件个数。

接下来n行，每行包括3个整数i,j,e，描述1个相等/不等的约束条件，相邻整数之间用单个空格隔开。若e=1，则该约束条件为xi=xj；若e=0，则该约束条件为xi≠xj。

输出描述 Output Description
输出文件包括t行。

输出文件的第k行输出一个字符串“YES”或者“NO”（不包含引号，字母全部大写），“YES”表示输入中的第k个问题判定为可以被满足，“NO”表示不可被满足。

样例输入 Sample Input
2

2

1 2 1

1 2 0

2

1 2 1

2 1 1
样例输出 Sample Output
NO

YES

数据范围及提示 Data Size & Hint
在第一个问题中，约束条件为：x1=x2,x1≠x2。这两个约束条件互相矛盾，因此不可被同时满足。

在第二个问题中，约束条件为：x1=x2,x2=x1。这两个约束条件是等价的，可以被同时满足。

1≤n≤1000000

1≤i,j≤1000000000

实际上以前做过这道题的数据水化版本，i，j的值没有给到这么大，所以只要每次把相等的元素合并，最后再来查询不等式两段的元素是否在同一集合中就可以了。
但是这道题 i，j的范围丧心病狂的给到了十亿，显然数组不能开这么大，所以想到了用哈希简化数据

但是要注意，查询不等式两端元素的时候，可能元素在等式两段没有出现过，于是哈希表中（下面程序中的g数组）没有这个元素（显然这个元素可以等于任何彼此相等的元素），于是死在表里循环。
所以加了一个特判（87和97行的if语句）。

还有一个卡了我三个点没过的特判，就是不等式两边可能出现同一个数。。于是又加了一个判断（代码的78，79行）。

代码如下

program mys;

var i,j,k,m,n,x,y,z,t,ii,xx,yy:longint;
a,b,g,f:array[0..1000007]of longint;
bbb,bbbb:boolean;

function hash(x:longint):longint;
begin 
hash:=x mod 1000007;
end;

function find(x:longint):longint;
begin 
if f[x]<>x then f[x]:=find(f[x]);
exit(f[x]);
end;

procedure union(x,y:longint);
begin 
x:=find(x);
y:=find(y);
if x<>y then f[x]:=y;
end;

procedure put(x,y:longint);
var tt,t:longint;
begin 
t:=hash(x);
while g[t]<>x do 
begin 
if g[t]=0 then 
begin 
g[t]:=x;
break;
end;
t:=(t+1)mod 1000007;
end;
tt:=hash(y);
while g[tt]<>y do 
begin 
if g[tt]=0 then 
begin 
g[tt]:=y;
break;
end;
tt:=(tt+1)mod 1000007;
end;
union(t,tt);
end;


begin 
readln(t);
for ii:=1 to t do 
begin 
fillchar(g,sizeof(g),0);
readln(n);
m:=0;
for i:=1 to 1000007 do 
f[i]:=i;
for i:=1 to n do 
begin 
readln(x,y,z);
if z=1 then 
put(x,y)
else 
begin 
inc(m);
a[m]:=x;
b[m]:=y;
end;
end;

bbb:=true;

for i:=1 to m do 
begin 
if a[i]=b[i] then 
bbb:=false;
xx:=hash(a[i]);
yy:=hash(b[i]);
bbbb:=true;
if bbb then 
begin 
while g[xx]<>a[i] do 
begin
if g[xx]=0 then 
begin 
bbbb:=false;
break;
end; 
xx:=(xx+1) mod 1000007;
end;

while g[yy]<>b[i] do 
begin 
if g[yy]=0 then 
begin 
bbbb:=false;
break;
end;
yy:=(yy+1) mod 1000007;
end;

if find(xx)=find(yy) then 
begin 
bbb:=false;
break;
end;
end;
end;
if bbb then writeln('YES')
else writeln('NO');
end;

end.