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'。

這是您要求的簡單解決方案嗎？