From 9e72485aad800bdcd0798d73a77f92be3ca808dd Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.dyndns.org>
Date: Thu, 28 Dec 2017 14:49:32 -0500
Subject: [PATCH] 2016-06

---
 2016/06/1.pl | 20 ++++++++++++++++++++
 2016/06/2.pl | 20 ++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 2016/06/1.pl
 create mode 100644 2016/06/2.pl

diff --git a/2016/06/1.pl b/2016/06/1.pl
new file mode 100644
index 0000000..90f5fb0
--- /dev/null
+++ b/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;
+}
+
diff --git a/2016/06/2.pl b/2016/06/2.pl
new file mode 100644
index 0000000..7b3c59f
--- /dev/null
+++ b/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;
+}
+