2016-06

2016/06/1.pl

@@ -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;
+}
+

2016/06/2.pl

@@ -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;
+}
+