小编Ana*_*ant的帖子

Perl6:将列表中的元素与另一个列表匹配

我有编号的列表大号.还有数另一份名单中号.我需要返回一个列表L"在发现号的两个 大号和中号.

编辑:数学上,我正在寻找 Multiset交叉点.

例:

大号 = 3,14,15, 9,2,6
中号 = 9,7, ,,1 ,1 L" = 9,1,2,121

我为此编写了以下代码:

my @some-numbers = 3, 1, 4, 1, 5, 9, 2, 6;
my @to-match     = 9, 7, 1, 2, 1, 1;
my @matched;

my %histogram;
for @some-numbers -> $n { %histogram{$n}++ };

for @to-match -> $n {
    next …
Run Code Online (Sandbox Code Playgroud)

perl6 raku

5
推荐指数
2
解决办法
180
查看次数

标签 统计

perl6 ×1

raku ×1