a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Perl > 正文

perl用grep map求交集、并集、補集的實例代碼

2020-06-04 20:27:47
字體：大 中 小
來源：轉載
供稿：網友
代碼如下:
#!/usr/bin/perl
#
# 用grep map 獲取兩個列表的交集并集、補集
#
use strict;
my @a=("a","b","c","d","e");
my @b=("b","g","f","e");
print "列表a數據： @a /n";
print "列表b數據: @b /n";
my %a = map{$_ => 1} @a;
my %b = map{$_ => 1} @b;
my @c = map{$_ => 1} @a;     # => 操作符起到了hash賦值的作用
# @a @b 交集
my @inter = grep {$a{$_}} @b;     # 求交集
print "交集：@inter /n";
# @a,@b 并集
my %merge = map {$_ => 1} @a,@b;  # 求并集
my @merge = keys (%merge);
print "并集：@merge /n";
# @a,@b的補集@ca，@cb，即@a和@b相對于@merge的補集
my @ca = grep {!$a{$_}} @merge;
my @cb = grep {!$b{$_}} @merge;
print "/@a的補集:@ca /n";
print "/@b的補集:@cb /n";

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 亚洲欧美高清 | 中文在线一区二区 | 99av| 色综合一区| 欧美日本乱大交xxxxx | 日韩在线欧美 | 99视频网站 | 欧美成人一区二区三区片免费 | 日本aⅴ免费视频一区二区三区 | 美女131mm久久爽爽免费 | 国产视频一视频二 | 国产区视频在线观看 | 亚洲精选国产 | 国产精品亚洲天堂 | 精品一区二区三区在线视频 | 色噜噜色狠狠 | 亚洲成人精品av | 国产精品久久久久久久久久10秀 | 日韩一区二区三区在线视频 | 日韩视频在线一区二区 | 国产精品久久一区 | 久久精品网 | 天堂成人国产精品一区 | 久久av影院 | 日韩成人av在线 | 欧美资源在线 | 91成人免费看片 | 久久久美女 | 99精品视频一区二区三区 | 国产精品亲子伦av一区二区三区 | 亚洲三级在线 | 四季久久免费一区二区三区四区 | 91精品国产综合久久久久久丝袜 | 在线不卡一区二区 | 国产高清精品在线 | 一区二区视频 | 国产精品久久久久久久久免费桃花 | 少妇裸体淫交免费视频 | 国产视频久久久久久久 | 精品二区 | 操操操操网 |