Merge pull request #10380 from kjetillll/challenge-276-kjetillll

https://theweeklychallenge.org/blog/perl-weekly-challenge-276/

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-276/kjetillll/perl/ch-1.pl b/challenge-276/kjetillll/perl/ch-1.pl
new file mode 100644
index 0000000000..5aafa7b947
--- /dev/null
+++ b/challenge-276/kjetillll/perl/ch-1.pl
@@ -0,0 +1,15 @@
+use strict; use warnings; use Test::More tests=>3;
+
+sub complete_day_pair_count {
+    my $pairs = 0;
+    "@_" =~ /
+             \b(\d+)\b .+ \b(\d+)\b
+             (??{ $pairs += ($1 + $2) % 24 == 0; '^' })
+	    /x;
+    $pairs
+}
+
+is complete_day_pair_count( @{ $$_{input} } ), $$_{output}
+    for { input => [12, 12, 30, 24, 24], output => 2 },
+        { input => [72, 48, 24, 5     ], output => 3 },
+        { input => [12, 18, 24        ], output => 0 };
diff --git a/challenge-276/kjetillll/perl/ch-2.pl b/challenge-276/kjetillll/perl/ch-2.pl
new file mode 100644
index 0000000000..ef31b9345e
--- /dev/null
+++ b/challenge-276/kjetillll/perl/ch-2.pl
@@ -0,0 +1,12 @@
+use strict; use warnings; use Test::More tests => 2; use List::Util qw(max sum);
+
+sub maximum_frequency {
+    my %freq;
+    $freq{ $_ }++ for @_;
+    my $max_freq = max( values %freq );
+    sum( map $_, grep $_ == $max_freq, values %freq )
+}
+
+is maximum_frequency( @{ $$_{input} } ), $$_{output}
+  for { input => [1, 2, 2, 4, 1, 5], output=> 4 },
+      { input => [1, 2, 3, 4, 5   ], output=> 5 };