From 1065943b0f98b8eed24b68bcfcfade22e8b3646f Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Sun, 8 Dec 2024 12:23:42 +0100
Subject: [PATCH] 2024 day 8 cleaned up

---
 2024/day08/day08.bqn | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/2024/day08/day08.bqn b/2024/day08/day08.bqn
index 5b734a5..8d3d16c 100644
--- a/2024/day08/day08.bqn
+++ b/2024/day08/day08.bqn
@@ -1,7 +1,8 @@
 in←>•FLines"input"
-n←≠in
 freqs←∾"0aA"+¨↕¨10‿26‿26
-as←∾{(≠⌜˜↕∘≠)⊸(/○⥊)(⊣+-)⌜˜/○⥊⟜(↕≢)𝕩=in}¨freqs
-•Show ≠⍷(∧´¨0⊸≤∧<⟜n¨¨)⊸/as
-as2←∾{∾(≠⌜˜↕∘≠)⊸(/○⥊){(<𝕩)+(<𝕩-𝕨)×↕n}⌜˜/○⥊⟜(↕≢)𝕩=in}¨freqs
-•Show ≠⍷(∧´¨0⊸≤∧<⟜n¨¨)⊸/as2
+_antinodes←{f _r m:
+  ns←∾{∾(≠⌜˜↕∘≠)⊸(/○⥊)F⌜˜/○⥊⟜(↕≢)𝕩=m}¨freqs
+  ⍷(∧´0⊸≤∧<⟜(≠m)¨)¨⊸/ns
+}
+•Show ≠{⟨𝕩+𝕩-𝕨⟩}_antinodes in
+•Show ≠{𝕩⊸+¨(𝕩-𝕨)⊸ר↕≠in}_antinodes in