perl6 排列匹配

Question

我仍在尝试进行排列匹配，我想知道是否有人有更好的方法来做到这一点。我想以任何顺序匹配数组中的所有模式，即匹配数组中项目（字符串或其他对象）的排列。例如，如果数组是 (1,2,3)，那么如果一个字符串以任意顺序包含 1 和 2 和 3，则为真；即，如果字符串包含 (1,2,3) 的排列，则为 true。

我现在拥有的是这样的：

my @x = < one eins uno yi two zwei dos er one one one two two two >;
my @z = < one eins uno yi two zwei dos er one one one two two two foo >;
my $y = "xxx one eins uno yi two zwei dos er xxx";

sub matchAllWords($aString, @anArray) {
    my $arraySize = @anArray.elems;
    if $arraySize == 0 { False; }
    elsif $arraySize == 1 { 
    ($aString.match(/:i "@anArray[0]" /)).Bool; 
    } else { 
    my $firstCheck = ($aString.match(/:i "@anArray[0]"/)).Bool;
    if $firstCheck {
        $firstCheck
        and
        (matchAllWords($aString, @anArray[1..*])); 
    } else {
        return False;
    }
  }
}

say matchAllWords($y, @x); 
# result is True, but it should NOT be True because $y should not 
# match permutations of @x which contains multiple identical elements
# of "one" and "two"
say matchAllWords($y, @z); # False as expected;

问题是我的函数匹配数组中的所有唯一单词，但无法区分重复单词的排列。我可以添加越来越多的代码来判断一个单词是否匹配，但是更多的代码来完成一个简单的想法，“排列匹配”，是不完美的。有什么建议么？谢谢

Answer 1

新答案

根据大家的cmet，这里是我现在理解的问题的重述，然后​​是一个新的解决方案：

测试Y，一个字符串，包含Z中的所有字符串，一个Bag (multiset) 字符串，具有正确的复制计数/多重性。

my \Z = < one eins uno yi two zwei dos er two > .Bag ;

my \Y = "xxx one eins uno yi two zwei dos er two xxx" ;

sub string-matches-bag ($string, $bag) {
    for $bag.kv -> $sub-string, $copy-count {
        fail unless ($string ~~ m:g/ $sub-string /).elems == $copy-count
    }
    True
}

say string-matches-bag Y, Z

---

旧答案

say so $y.words.all eq @z.any

这行代码的解释在这个答案的最后部分。

---

我发现你的问题很令人困惑。但我希望这个答案是您想要的，或者至少足以让事情朝着正确的方向发展。

我发现您的数据令人困惑。您的 $y 中有两个 'xxx' 单词，但两个数组中都没有。所以那一点不能匹配。您的@z 中有一个'foo'。那应该是'xxx' 吗？你的$y 中有一个'one'，但两个数组至少有两个 'one's。这是个问题吗？

我也发现你的叙述令人困惑。

对于这个答案，我假设@z 末尾有一个xxx，关键评论是：

一个简单的想法，“排列匹配”

---

say so $y.words.all eq @z.any

so 返回其右侧表达式的布尔值（True 或 False）。

so 右侧的表达式使用Junctions。它的英文散文摘要是“$y 中的所有“单词”，一次取一个，是等于@z 的至少一个元素的字符串。

这是您要求的简单解决方案吗？