麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Perl > 正文

perl用grep map求交集、并集、補(bǔ)集的實例代碼

2020-06-04 20:27:47
字體：大 中 小
供稿：網(wǎng)友
代碼如下:
#!/usr/bin/perl
#
# 用grep map 獲取兩個列表的交集并集、補(bǔ)集
#
use strict;
my @a=("a","b","c","d","e");
my @b=("b","g","f","e");
print "列表a數(shù)據(jù)： @a /n";
print "列表b數(shù)據(jù): @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的補(bǔ)集@ca，@cb，即@a和@b相對于@merge的補(bǔ)集
my @ca = grep {!$a{$_}} @merge;
my @cb = grep {!$b{$_}} @merge;
print "/@a的補(bǔ)集:@ca /n";
print "/@b的補(bǔ)集:@cb /n";

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 国产91一区二区三区 | 欧美成年人视频在线观看 | 毛片大全免费看 | 成人三级视频网站 | 成年人毛片视频 | 国产午夜电影在线观看 | 国产精品99一区二区 | 成人男女啪啪免费观看网站四虎 | 黄色影院 | 黄色网址进入 | 久久情爱网 | 久久99国产综合精品 | bt 自拍 另类 综合 欧美 | 久久久久999 | 国产1区在线观看 | 免费久久久 | 成人艳情一二三区 | 999久久久国产999久久久 | 久久成人国产精品 | 中午字幕无线码一区2020 | 欧美女优一区 | 久久国产免费 | 毛片大全在线观看 | www.国产免费| 毛片网站视频 | 亚洲一区二区成人 | av在线免费观看网 | 国产日韩久久久久69影院 | 欧美日本不卡 | 久久久久免费电影 | 一级α片免费看刺激高潮视频 | 97porn| 日韩欧美中文字幕视频 | 亚洲人成网在线观看 | 午夜激情视频网站 | 少妇一级淫片免费放正片 | 中午字幕无线码一区2020 | 成人毛片免费在线 | 美国av在线免费观看 | 人人玩人人爽 | 国产精品久久久久久久久粉嫩 |