From e65fcb1e682c8131dfc9d85743398390ac5370cf Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Wed, 4 Dec 2024 13:53:52 +0100
Subject: [PATCH] 2024 day 4 part 2

---
 2024/day04/day04.bqn | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/2024/day04/day04.bqn b/2024/day04/day04.bqn
index 74407a6..4c77e12 100644
--- a/2024/day04/day04.bqn
+++ b/2024/day04/day04.bqn
@@ -6,3 +6,7 @@ d←∾1⊸↓¨∾¨⌽⍟0‿1¨¨UpperDiags¨a
 na←+´+´∘⥊¨"XMAS"⊸⍷¨a
 nd←+´+´¨"XMAS"⊸⍷¨d
 •Show na+nd
+
+idxs←(⥊↕¯2+≢in)+⌜↕3‿3
+Diags←0‿0⊸⍉¨ ⌽∘⍉⍟0‿1
+•Show +´{∧´(Diags𝕩⊑in)∊"MAS"‿"SAM"}˘idxs