perl6 – 使用Perl 6中的另一个数组的元素过滤数组的元素

发布时间：2020-12-15 22:06:30 所属栏目：大数据来源：网络整理

导读：我想过滤以@search元素开头的@array元素： my @array = "aaaaa" .. "fffff";my @search = "aaaa" .. "cccc";.put for @array .grep: /^ @search /; 问题是需要19秒.所以,我‘precompile’ grep的正则表达式,整个程序看起来像这样： my @array = "aaaaa" .. "

我想过滤以@search元素开头的@array元素：

my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";
.put for @array .grep: /^ @search /;

问题是需要19秒.所以,我‘precompile’ grep的正则表达式,整个程序看起来像这样：

my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";

my $search = "/@search.join('|')/".EVAL;

.put for @array .grep: * ~~ /^ <$search> /;

现在需要0.444秒.

问题：是否有内置的Perl 6方法来做这些事情？将结点插入正则表达式…

解决方法

my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";
my $join = @search.join('|');
my $rx = rx{ ^ <{$join}> };

@array.grep( * ~~ $rx ).map( *.put )

您需要单独创建连接字符串,它将评估每个匹配的数组连接.但基本上可以在不使用EVAL的情况下为您提供所需的内容.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!