diff options
| -rw-r--r-- | challenge-005/fjwhittle/perl6/ch-2.p6 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-005/fjwhittle/perl6/ch-2.p6 b/challenge-005/fjwhittle/perl6/ch-2.p6 new file mode 100644 index 0000000000..75cdfa6a55 --- /dev/null +++ b/challenge-005/fjwhittle/perl6/ch-2.p6 @@ -0,0 +1,19 @@ +#!/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 |