2024.8

2 files changed, 119 insertions, 0 deletions

diff --git a/2024/input.08.txt b/2024/input.08.txt
new file mode 100644
index 0000000..a0e2233
--- /dev/null
+++ b/2024/input.08.txt
@@ -0,0 +1,50 @@
+............s...............1.....................
+......................E......3.....S..............
+.......................3.....S....................
+...e........T.t.......S.1...........I.............
+..................B..................I.....O......
+g.......z........i39......B..I....................
+.......s....S.......3......................i..I...
+....e.............2..........B....................
+.......tC...z.......g......1......................
+.E......s....R....................................
+..G...t..........2................................
+.........K...C.......2............................
+....T..e...........5...C..........................
+...T................................O...o.........
+...............................g..............o...
+.........z...................g......i............o
+...9.E............H...........Y.......O...........
+..........R..H...............7.O..................
+...........H.............v......7........B........
+..9.Q.......................W......1........Y.....
+.........................z.7.................Y....
+.....Q................................v...........
+....K.......E.....R...............2..........o....
+.n............H......v...........................Y
+.G.y..........................Q...................
+......G....A5.....................h...............
+..........D...5.w...9.............................
+......n....5...L..................................
+............................v.....................
+............L...0t..........7.....................
+..n....k............y....................W........
+..k..........0.........................W..........
+...n.......R..L..a........................W.......
+.........................................h........
+..0..L........c...b...............................
+.....................8.y..........................
+.......w.................6.............h.......N..
+..........y..4....................................
+...0....8...k.....Z........r......................
+..............a...8Z.........G......4.............
+........4..b.q.....................K..............
+.q...........kZ.K......b..D.........d.............
+.8.....................D................r.........
+.....w.........a...............d........A.........
+................................d.A.hV............
+................c..........D.....V....r...........
+.......Z......6.....l........................A.d..
+...................l..6..c....b......r...........N
+......a....4........q..l..V..c................N...
+l.....w...........q..6............V...............
diff --git a/2024/tcl/08.tcl b/2024/tcl/08.tcl
new file mode 100755
index 0000000..e62ed69
--- /dev/null
+++ b/2024/tcl/08.tcl
@@ -0,0 +1,69 @@
+#!/bin/env tclsh
+
+source lib.tcl
+setup 8 grid
+
+puts {Part 1: Antinode count in map}
+
+set antinodes {}
+set resonant_antinodes {}
+set antennae {}
+
+for {set x 0} {$x < $input(w)} {incr x} {
+  for {set y 0} {$y < $input(h)} {incr y} {
+    set cell [lindex $input(grid) $y $x]
+    if {[regexp {[a-zA-Z0-9]} $cell]} {
+      if [dict exists $antennae $cell] {
+        foreach antenna [dict keys [dict get $antennae $cell]] {
+          lassign $antenna x2 y2
+          dict set resonant_antinodes [list $x $y] 1
+          dict set resonant_antinodes [list $x2 $y2] 1
+
+          set xoff [expr {$x - $x2}]
+          set yoff [expr {$y - $y2}]
+
+          set ax [expr {$x + $xoff}]
+          set ay [expr {$y + $yoff}]
+          if {$ax >= 0 && $ax < $input(w) && $ay >= 0 && $ay < $input(h)} {
+            dict set antinodes [list $ax $ay] 1
+
+            while {$ax >= 0 && $ax < $input(w) && $ay >= 0 && $ay < $input(h)} {
+              dict set resonant_antinodes [list $ax $ay] 1
+              set ax [expr {$ax + $xoff}]
+              set ay [expr {$ay + $yoff}]
+            }
+          }
+
+          set ax [expr {$x2 - $xoff}]
+          set ay [expr {$y2 - $yoff}]
+          if {$ax >= 0 && $ax < $input(w) && $ay >= 0 && $ay < $input(h)} {
+            dict set antinodes [list $ax $ay] 1
+
+            while {$ax >= 0 && $ax < $input(w) && $ay >= 0 && $ay < $input(h)} {
+              dict set resonant_antinodes [list $ax $ay] 1
+              set ax [expr {$ax - $xoff}]
+              set ay [expr {$ay - $yoff}]
+            }
+          }
+        }
+      }
+      dict set antennae $cell [list $x $y] 1
+    }
+  }
+}
+
+puts "Antinodes: [llength [dict keys $antinodes]]"
+
+puts ""
+puts {Part 2: Resonant antinode count in map}
+
+puts "Resonant Antinodes: [llength [dict keys $resonant_antinodes]]"
+
+#foreach ra [dict keys $resonant_antinodes] {
+#  lassign $ra x y
+#  lset input(debug) $y $x "#"
+#}
+
+#foreach line $input(debug) {
+#  puts [join $line ""]
+#}