perl 两个数组的交集、补集、并集

  • perl 两个数组的交集、补集、并集已关闭评论
  • 115,029 views
  • 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;

  • 我的微信
  • 微信扫一扫
  • weinxin
  • 微信公众号
  • 微信公众号扫一扫
  • weinxin
avatar