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