perl6 순열 일치

Question

순열 일치 작업을 계속하려고합니다. 누구에게나 더 나은 방법이 있는지 궁금합니다. 어떤 순서로든 배열의 모든 패턴을 일치 시키려합니다. 즉, 배열의 항목 (문자열 또는 기타 객체)의 순열을 일치시킵니다. 예를 들어 array가 (1,2,3)이면 문자열에 1과 2와 3이 어떤 순서로든 포함되어 있으면 true입니다. 즉 문자열에 (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; 

문제점 내 함수가 배열에 모든 고유 단어를 일치하지만, 중복 단어의 순열을 구별 할 수 없습니다 :

는 내가 지금 가지고있는 것은 이것이다. 단어가 일치하는지 더 많은 코드를 추가 할 수 있지만 "순열 일치"라는 단순한 아이디어를 달성하기위한 코드는 더 이상 필요하지 않습니다. 어떤 제안? Y, 문자열, 모두 포함

테스트하는 것이 : 감사

Answer 1

모든 사람의 의견을 바탕으로 새로운 대답

, 여기에 새로운 솔루션 뒤에 나는 지금 그것을 이해 문제의 재 작성,이다 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'이 있습니다. 그게 문제 야?

당신의 서술도 혼란 스럽습니다. 내가 @z 것으로 가정 한이 답변

은 끝에 xxx을 가지고 있으며, 키 코멘트입니다 :

간단한 아이디어, "순열 일치"

---

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

so 오른쪽에있는 표현식의 부울 값 (True 또는 False)을 반환합니다.

so의 표현식은 Junctions입니다.그것의 영어 산문 요약은 $y에있는 "모든 단어"가 한 번에 하나씩 취해지며 적어도 하나의 요소 인 @z '과 같습니다.

간단한 해결책인가요?