From 2252398af6141ed2143d1e439e141454f56a7de5 Mon Sep 17 00:00:00 2001
From: mhsn <mail@mhsn.net>
Date: Wed, 24 Sep 2025 16:39:11 +0100
Subject: 24-02-raku both

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

(limited to '2024')

diff --git a/2024/02/raku.raku b/2024/02/raku.raku
new file mode 100755
index 0000000..9b930de
--- /dev/null
+++ b/2024/02/raku.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+my @rs = lines>>.words.map(&cache);
+
+sub incr ($r) { $r.rotor(2=>-1).map({ ([-] $_) (elem) (1..3)}).all };
+sub safe ($r) { so $r.&incr || $r.reverse.&incr };
+
+say "silver: ", @rs.map(&safe).sum;
+say "gold: ", @rs.map({ $_.combinations($_-1).map(&safe).any.so }).sum;
-- 
cgit v1.2.3