exercise: Anagram
version: 3
plan: 12
tests: |-
  cmp-ok match-anagrams( |%(.<input><subject candidates>:p) ), '~~', .<expected>.Set, .<description> for $c-data<cases>.values;

unit: module
example: |-
  sub match-anagrams ( :$subject!, :@candidates! ) is export {
    given $subject.uc -> $ucs {
      @candidates.grep: { given .uc {$_ ne $ucs && .comb ~~ $ucs.comb.Bag} }
    }
  }
stub: |-
  sub match-anagrams (:$subject!, :@candidates!) is export {
  }