adventofcode/2016/06/2.pl

21 lines
277 B
Perl
Raw Normal View History

2017-12-28 19:49:32 +00:00
use 5.20.0;
use List::UtilsBy qw/ max_by min_by /;
my @message;
while(<>) {
chomp;
my @letters = split '';
while( my( $i, $l ) = each @letters ) {
$message[$i]{$l}++;
}
}
use DDP;
for my $m ( @message ) {
print min_by { $m->{$_} } keys %$m;
}