yanick/adventofcode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2016-06

Browse Source
This commit is contained in:
Yanick Champoux 2017-12-28 14:49:32 -05:00
parent 64fc6fade0
commit 9e72485aad
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
2016/06/1.pl Normal file
View File

@ -0,0 +1,20 @@
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;
}

20
2016/06/2.pl Normal file
View File

@ -0,0 +1,20 @@
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;
}