challenge-005/stuart-little/raku/ch-2.p6


1
2
3
4
5
6
7
8
9

#!/usr/bin/env perl6
use v6;

my %*SUB-MAIN-OPTS=:named-anywhere,;
sub MAIN(
    Str $path_to_dict_file,
) {
    say $path_to_dict_file.IO.words.classify({ $_.lc.comb.Bag }).max({ $_.value.elems }).value
}