集合(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!
var
hs:array[0..1000001] of longint;
i,n,m,j,k,modn,dep,max,ans:longint;
procedure writen;
var
i:longint;
begin
if (max=m) and (max=n) then begin writeln('A equals B'); i:=1; end;
if (max=n) and (max<m) then begin writeln('A is a proper subset of B'); i:=1; end;
if (max=m) and (max<n) then begin writeln('B is a proper subset of A'); i:=1; end;
if max=0 then begin writeln('A and B are disjoint'); i:=1; end;
if i<>1 then writeln('I''m confused!');
end;
function locate(x:longint):longint;
var
i,j,dq:longint;
begin
dq:=x mod modn;
j:=0;
while (hs[dq+j]<>0) and (hs[dq+j]<>x) do inc(j);
exit(dq+j);
end;
begin
read(n);
modn:=1000001;
for i:=1to n do
begin
read(ans);
dep:=locate(ans);
hs[dep]:=ans;
end;
readln;
read(m);
for i:=1 to m do
begin
read(ans);
dep:=locate(ans);
if hs[dep]=ans then inc(max);
end;
writen;
end.
哈希初步学…