Anagram generator: Difference between revisions
m
→{{header|Raku}}: Unicode FTW
Thundergnat (talk | contribs) (→{{header|Raku}}: Add missing word, Made dictionary used a command line directive) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: Unicode FTW) |
||
Line 58:
sub find-anagram (%subset, $phrase is copy = '', $last = Inf) {
my $remain = $bag
my %filtered = %subset.grep: { .value ⊆ $remain }; # Find words using the remaining letters
my $sofar = +$phrase.comb(/\w/); # Get the count of the letters used so far
| |||