perl6排列匹配

Question

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

我现在是这样的：

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

根据大家的意见新的答案

，这里是我现在的理解问题的重述，然后​​提出新的解决方案：

测试是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'。

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