- A+
所属分类:未分类
my @a=(1,2,3,4,5,6,7);
my @b=(3,5,6,7);
my %a=map{$_=>1} @a;
my %b=map{$_=>1} @b;
#交集
@A=grep($a{$_},@b);
#补集
@B1=grep(!defined $a{$_},@b);
@B2=grep(!defined $b{$_},@a);
#并集
%c=map{$_=>1} @a,@b;
@c=keys %c;
- 安卓客户端下载
- 微信扫一扫
- 微信公众号
- 微信公众号扫一扫