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

Question

我有一个数字列表L。还有另一个数字列表M。我需要返回一个在L和M中找到的数字列表L。

编辑：从数学上讲，我正在寻找多集交点。

例子：

L=3，1，4，1，5，9，2，6
M=9，7，1，2，1，1
L'=9,1,2,1

我为此编写了以下代码：

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 if not defined %histogram{$n};
    if %histogram{$n} > 0 {
        push @matched, $n;
        %histogram{$n}--;
    }
};

say @matched;

虽然它达到了目的，但我想知道是否有一种惯用的Perl6方法可以做到这一点？

一些背景：我一直在尝试一起学习Perl6和Python，并用这两种语言解决相同的难题。Python为上述问题提供了一个特别令人满意的解决方案。至少对我的初学者来说：）

Answer 1

你可以用袋子来做：

my $some-numbers = bag 3, 1, 4, 1, 5, 9, 2, 6;
my $to-match     = bag 9, 7, 1, 2, 1, 1;
my $matched      = $some-numbers ∩ $to-match;
say $matched;

输出：

bag(9, 1(2), 2)

您可以使用.kxxv将行李重新设置为阵列。

my @match-list = $matched.kxxv;
say @match-list;

输出：

[9 1 1 2]

（如果您不在乎复制品，请使用集合而不是袋子。）