Day 8: Resonant Collinearity

Megathread guidelines

  • Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
  • You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://topaz.github.io/paste/ if you prefer sending it through a URL

FAQ

you are viewing a single comment's thread
view the rest of the comments
[–] 2 points 2 years ago* (last edited 2 years ago)

Uiua

Getting closer to an elegant solution, but still a way to go...

How to read this

Try it live!

Grid      ← ⊜∘⊸≠@\n "............\n........0...\n.....0......\n.......0....\n....0.......\n......A.....\n............\n............\n........A...\n.........A..\n............\n............"
Pairs     ← ∧(⊂⧅≠2⊚⌕)⊙¤⊸(◴▽⊸≠@.♭)Grid[] # get pairs of nodes in grid (both ways round).
InGrid    ← ▽≡/××<⧻Grid:≥0..            # (posns) Keeps those in range.
AntiNodes ← ↯∞_2≡(+¤⊙(פ)⊃⊣/-):¤        # (range, pairs) Find antinodes by taking offset, mul by range, add to last node, check it's in grid.
&p ⧻InGrid◴ AntiNodes ↘1⇡2 Pairs
&p ⧻InGrid◴ AntiNodes ↘0⇡50 Pairs
  • source