ch-1 perl solution

1 files changed, 23 insertions, 0 deletions

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";
+