From 73f7b696264d9db21a6e7c03b89eb2b1135af83b Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Thu, 5 Dec 2024 09:47:59 +0100
Subject: Merge solutions into one

---
 2024/05/puzzles.awk | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 2024/05/puzzles.awk

(limited to '2024/05/puzzles.awk')

diff --git a/2024/05/puzzles.awk b/2024/05/puzzles.awk
new file mode 100644
index 0000000..6dbfcd2
--- /dev/null
+++ b/2024/05/puzzles.awk
@@ -0,0 +1,36 @@
+#!/usr/bin/gawk -f
+
+function record_valid(    seen)
+{
+	for (i = 1; i <= NF; i++) {
+		for (j in seen) {
+			if (j in rules[$i])
+				return 0
+		}
+		seen[$i] = 1
+	}
+	return 1
+}
+
+function sort_page_numbers(i1, v1, i2, v2)
+{
+	if (v1 in rules[v2])
+		return +1
+	if (v2 in rules[v1])
+		return -1
+	return 0
+}
+
+BEGIN { FS = "[|,]" }
+/\|/  { rules[$1][$2] = 1 }
+END   { print mid }
+
+# START PART 1
+/,/ && record_valid() { mid += $(i / 2) }
+# END PART 1 START PART 2
+/,/ && !record_valid() {
+	split($0, xs)
+    asort(xs, xs, "sort_page_numbers")
+	mid += xs[(NF + 1) / 2]
+}
+# END PART 2
\ No newline at end of file
-- 
cgit v1.2.3