From 6fe49f80eb73ad191060d34359d0e1f18e0264e3 Mon Sep 17 00:00:00 2001
From: mhsn <mail@mhsn.net>
Date: Wed, 24 Sep 2025 16:41:06 +0100
Subject: 24-05-raku both

---
 2024/05/raku.raku | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100755 2024/05/raku.raku

(limited to '2024')

diff --git a/2024/05/raku.raku b/2024/05/raku.raku
new file mode 100755
index 0000000..a13cf5a
--- /dev/null
+++ b/2024/05/raku.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+my (@rs, @us) := slurp.split("\n\n")>>.lines;
+
+sub mid(@u) {
+	my @s = @u.sort({ "$^a|$^b" !(elem) @rs });
+	return (@u Z== @s).all.so ?? ($_, 0) !! (0, $_) with @s[@s/2];
+}
+
+(("silver: ", "gold: ") Z~ [Z+] @us>>.split(",").map(&mid)).map(&say);
-- 
cgit v1.2.3