perl集合运算之交集，并集，差集

最新推荐文章于 2022-12-02 08:35:37 发布

zk1878

最新推荐文章于 2022-12-02 08:35:37 发布

阅读量1.1k

点赞数 1

分类专栏： perl 文章标签： Perl C C++ C#

perl 专栏收录该内容

61 篇文章 0 订阅

订阅专栏

perl中，实现两个集合的运算很简单，只需几行代码即可

@a=('a'..'c',1..3);
@b=('A'..'C',1..3);
@union=();#并集
@diff=(); #差集 
@isect=();#交集
foreach $e(@a,@b){
   $union{$e}++&&$isect{$e}++;
}
@union=keys %union;
@isect=keys %isect;
@diff=grep {$union{$_}==1;} @union;
print (join ',',@union);
print "\n";
print (join ',',@isect);
print "\n"; 
print (join ',', @diff);

输出：