raku - 在 Perl 6 中用另一个数组的元素过滤一个数组的元素

Question

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

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

问题是它需要 19 秒。所以，我 'precompile' regex为 grep ，整个程序是这样的:

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

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

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

现在需要 0.444 秒。

问题:是否有内置的 Perl 6 方法来做这样的事情？类似于插入 junction成 regex ...

Answer 1

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

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

您需要单独创建连接字符串，它将评估每个匹配项的数组连接。但是基本上不用EVAL就可以给你你想要的东西。