24-05-raku bothHEADmaster

1 files changed, 10 insertions, 0 deletions

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);