(ssl1125) 集合(normal)

集合(normal)

Time Limit:2000MS

Memory Limit:65536K

Total Submit:562

Accepted:182

Description

给定两个集合A、B，集合内的任一元素x满足1 ≤ x ≤ 109，并且每个集合的元素个数不大于105。我们希望求出A、B之间的关系。
任　务　：给定两个集合的描述，判断它们满足下列关系的哪一种：
A是B的一个真子集，输出“A is a proper subset of B”
B是A的一个真子集，输出“B is a proper subset of A”
A和B是同一个集合，输出“A equals B”
A和B的交集为空，输出“A and B are disjoint”
上述情况都不是，输出“I’m confused!”

Input

输入有两行，分别表示两个集合，每行的第一个整数为这个集合的元素个数（至少一个），然后紧跟着这个集合的元素（均为不同的正整数）

Output

只有一行，就是A、B的关系。

Sample Input

样例1
2 55 27
2 55 27
样例2
3 9 24 1995
2 9 24
样例3
3 1 2 3
4 1 2 3 4
样例4
3 1 2 3
3 4 5 6
样例5
2 1 2
2 2 3

Sample Output

样例1
A equals B
样例2
B is a proper subset of A
样例3
A is a proper subset of B
样例4
A and B are disjoint
样例5
I’m confused!

Source

elba

题解：本题的思路是用哈希表来储存。
   至于数组大小则决定了程序内存和程序速度(一般来说大小与内存成正比，与速度成反比，但数组太大反而会慢！)
   本题范围大致在100000以上，各位可以通过用不同的数来找到最优的解题数组！

var a,b,c,f:array[0..125886]of longint; n,m,t,i,min,ans:longint; x,y:char;function try(t:longint):longint;var tmp:longint;begin tmp:=t mod 125887;//mod一个较大的质数 while (f[tmp]<>0) and (f[tmp]<>t) do//如果当前位置有数而且不是同一个数  tmp:=(tmp+1) mod 125887;//往后面找空位，mod是用来回到开头再找(形成环) try:=tmp;end;begin x:='B'; y:='A';//后面懒得判断来输出了 read(n); for i:=1 to n do read(a[i]); read(m); for i:=1 to m do read(b[i]); if m<=n then min:=m; if m>n then//如果a是b的子串，那么b一定比a长  begin   t:=n; c:=a; x:='A';   n:=m; a:=b; y:='B';   m:=t; b:=c; min:=m;  end; for i:=1 to n do f[try(a[i])]:=a[i];//将a里的数放进去 for i:=1 to m do  if f[try(b[i])]<>b[i] then inc(ans);//如果有不同就累加 if ans=0 then//没有不同  if n=m then write('A equals B')//长度相等，一样         else write(x,' is a proper subset of ',y)//长度不等，其中一个是另一个的子串  else   if ans=min then write('A and B are disjoint')//不同的个数为比较短的一个长度，则不同              else write('I''m confused!');//都不是end.