Help for this page

Select Code to Download

Select or download this

@dict = qw (foo oof fff bar baz);
$letters = 'ofo';
...
push @{$dict{rle(sort split '',$_)}}, $_ for @dict;
$words = $dict{rle(sort split '',$letters)} || [];
print "$_\n" for @$words;

Select or download this

my %dict;
push @{$dict{join('', sort split '',$_)}}, $_ for @dict;
$words = $dict{join('', sort split '',$letters)} || [];
print "$_\n" for @$words;