From ea2581d07013cb743fa95f0537a7da9b38d7e7e6 Mon Sep 17 00:00:00 2001
From: Kai Burgdorf <k@iburgdorf.de>
Date: Thu, 4 Jul 2024 23:39:24 +0200
Subject: ch-1 perl solution

---
 challenge-276/kai-burgdorf/perl/ch-1.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 challenge-276/kai-burgdorf/perl/ch-1.pl

diff --git a/challenge-276/kai-burgdorf/perl/ch-1.pl b/challenge-276/kai-burgdorf/perl/ch-1.pl
new file mode 100755
index 0000000000..2385b6b6d3
--- /dev/null
+++ b/challenge-276/kai-burgdorf/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+#@hours = (12, 12, 30, 24, 24);
+@hours = (72, 48, 24, 5);
+
+my $paircounter = 0;;
+my $i = 0;
+
+foreach( @hours ) {
+  my $j = 0;
+  my $firstSummand = $_;
+  foreach( @hours ) {
+    if( $j>$i && (($firstSummand + $_) % 24) == 0) {
+      $paircounter++;
+      print "Pair $paircounter: ($firstSummand, $_)\n";
+    }
+    $j++;
+  };
+  $i++;
+}
+
+print "Output: $paircounter\n";
+
-- 
cgit