Skip to content
Permalink
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (13 sloc) 518 Bytes
#!/usr/bin/env perl6
use v6;
#| Find the sequence of letters with the most anagrams in a given file
unit sub MAIN(
IO(Str) $file #= file containing list of words
where { given .IO { .r && ( .l || .f) or die "Cannot read from $_" } };
);
my SetHash %sequences{Str};
for $file.lines -> $word {
my $seq = $word.lc.comb(/\w/).sort.join(',') and %sequences{$seq}{$word.lc}++;
}
my $maxwords = %sequences.values».elems.max;
.fmt('%1$s(%2$d): %2$s').say for %sequences.pairs.grep: *.value.elems == $maxwords
You can’t perform that action at this time.