From 8aaf8e15d880c3d35c93fc522d5112b7151c9f4a Mon Sep 17 00:00:00 2001
From: Kai Burgdorf <k@iburgdorf.de>
Date: Thu, 4 Jul 2024 22:12:06 +0200
Subject: ch-1 js solution

---
 challenge-276/kai-burgdorf/javascript/ch-1.js | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-276/kai-burgdorf/javascript/ch-1.js

diff --git a/challenge-276/kai-burgdorf/javascript/ch-1.js b/challenge-276/kai-burgdorf/javascript/ch-1.js
new file mode 100644
index 0000000000..1c45ef6e55
--- /dev/null
+++ b/challenge-276/kai-burgdorf/javascript/ch-1.js
@@ -0,0 +1,17 @@
+//const hours = [12, 12, 30, 24, 24];
+//const hours = [72, 48, 24, 5];
+//const hours = [12, 18, 24];
+
+var pairs = [];
+
+hours.forEach((firstSummand, i) => {
+  hours.forEach((secondSummand, j) =>  {
+    if( j>i && ((firstSummand + secondSummand) % 24) == 0) {
+      pairs.push("Pair " + (pairs.length+1) +  ": (" + firstSummand + ", " + secondSummand + ")");
+    }
+  })
+})
+
+console.log("Output: " + pairs.length + "\n" + JSON.stringify(pairs));
+
+
-- 
cgit 


From bc48ef30568e657ce12798e6542cf91cc6bc4ecf Mon Sep 17 00:00:00 2001
From: Kai Burgdorf <k@iburgdorf.de>
Date: Thu, 4 Jul 2024 22:51:29 +0200
Subject: ch-2 js solution

---
 challenge-276/kai-burgdorf/javascript/ch-2.js | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-276/kai-burgdorf/javascript/ch-2.js

diff --git a/challenge-276/kai-burgdorf/javascript/ch-2.js b/challenge-276/kai-burgdorf/javascript/ch-2.js
new file mode 100644
index 0000000000..735773bf1e
--- /dev/null
+++ b/challenge-276/kai-burgdorf/javascript/ch-2.js
@@ -0,0 +1,18 @@
+const ints = [1, 2, 2, 4, 1, 5];
+//const ints = [1, 2, 3, 4, 5];
+
+
+var frequencies = {};
+var highest = 0;
+var total = 0;
+
+ints.forEach((curInt, i) => {
+  frequencies[curInt] = (frequencies[""+curInt] === undefined) ? 1 : frequencies[""+curInt]+1;
+  if(frequencies[""+curInt] > highest) highest=frequencies[""+curInt];
+});
+
+(new Set(ints)).forEach((curInt, i) => {
+  if(frequencies[""+curInt] === highest) total+=frequencies[""+curInt];
+});
+
+console.log("Output: " + total);
-- 
cgit 


From 47f02351c5d3732ede2943cbe418bf33e4813077 Mon Sep 17 00:00:00 2001
From: Kai Burgdorf <k@iburgdorf.de>
Date: Thu, 4 Jul 2024 23:20:48 +0200
Subject: ch-2 perl solution

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

diff --git a/challenge-276/kai-burgdorf/perl/ch-2.pl b/challenge-276/kai-burgdorf/perl/ch-2.pl
new file mode 100755
index 0000000000..f314b182f7
--- /dev/null
+++ b/challenge-276/kai-burgdorf/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+@ints = (1, 2, 2, 4, 1, 5);
+#@ints = (1, 2, 3, 4, 5);
+
+my %frequencies;
+my $highest = 0;
+my $total = 0;
+
+
+foreach (@ints) {
+  if (exists $frequencies{$_}) {
+    $frequencies{$_}++;
+  }
+  else {
+    $frequencies{$_} = 1;
+  }
+  if($frequencies{$_} > $highest) {
+    $highest=$frequencies{$_};
+  }
+}
+
+for(keys %frequencies){
+  print("frequ for value $_ is $frequencies{$_}\n");
+  if($frequencies{$_} == $highest) {
+    $total += $frequencies{$_};
+  }
+}
+
+print "\nhighest Frequency: $highest";
+print "\nOutput: $total";
-- 
cgit 


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