21 lines
270 B
Perl
21 lines
270 B
Perl
|
use 5.20.0;
|
||
|
|
|
||
|
|
use List::UtilsBy qw/ max_by /;
|
||
|
|
|
||
|
|
my @message;
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
chomp;
|
||
|
|
my @letters = split '';
|
||
|
|
while( my( $i, $l ) = each @letters ) {
|
||
|
|
$message[$i]{$l}++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
use DDP;
|
||
|
|
|
||
|
|
for my $m ( @message ) {
|
||
|
|
print max_by { $m->{$_} } keys %$m;
|
||
|
|
}
|
||
|
|
|