From 2807186474128e9d0fb52149630dc675b169cbfa Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Mon, 9 Dec 2024 20:42:52 -0500
Subject: grid mode in tcl helper

---
 2024/tcl/06.tcl | 49 +++++++++++++++++++++----------------------------
 1 file changed, 21 insertions(+), 28 deletions(-)

(limited to '2024/tcl/06.tcl')

diff --git a/2024/tcl/06.tcl b/2024/tcl/06.tcl
index fa48061..39f980e 100755
--- a/2024/tcl/06.tcl
+++ b/2024/tcl/06.tcl
@@ -1,37 +1,30 @@
 #!/bin/env tclsh
 
 source lib.tcl
-setup 6
+setup 6 grid
 
 puts {Part 1: Count unique guard coords}
 
-set map(grid) {}
-foreach line $input {
-  lappend map(grid) [split $line ""]
-}
-set map(h) [llength $map(grid)]
-set map(w) [llength [lindex $map(grid) 0]]
-set map(visits) {}
-set map(debug) $map(grid)
-set guard(y) [lsearch $map(grid) *^*]
-set guard(x) [lsearch [lindex $map(grid) $guard(y)] ^]
+set input(visits) {}
+set guard(y) [lsearch $input(grid) *^*]
+set guard(x) [lsearch [lindex $input(grid) $guard(y)] ^]
 set guard(dir) 0
 set placed_obstructions {}
 
 set rot_map {{-1 0} {0 1} {1 0} {0 -1}}
 
 proc step_guard {} {
-  global guard rot_map map
-  dict set map(visits) [list $guard(y) $guard(x)] $guard(dir) 1
-  lset map(debug) $guard(y) $guard(x) [lindex {^ > v <} $guard(dir)]
+  global guard rot_map input
+  dict set input(visits) [list $guard(y) $guard(x)] $guard(dir) 1
+  lset input(debug) $guard(y) $guard(x) [lindex {^ > v <} $guard(dir)]
 
   lassign [lindex $rot_map $guard(dir)] ydir xdir
   set ynew [expr {$guard(y) + $ydir}]
   set xnew [expr {$guard(x) + $xdir}]
 
-  if {$ynew < 0 || $ynew >= $map(h) || $xnew < 0 || $xnew >= $map(w)} { return 0 }
+  if {$ynew < 0 || $ynew >= $input(h) || $xnew < 0 || $xnew >= $input(w)} { return 0 }
 
-  if {[lindex $map(grid) $ynew $xnew] == "#"} {
+  if {[lindex $input(grid) $ynew $xnew] == "#"} {
     set guard(dir) [expr {($guard(dir) + 1) % 4}]
     return 1
   }
@@ -44,45 +37,45 @@ proc step_guard {} {
 # sigh
 set potential_loops 0
 while {[step_guard]} {
-  puts -nonewline "Unique coords: [llength [dict keys $map(visits)]]\r"
+  puts -nonewline "Unique coords: [llength [dict keys $input(visits)]]\r"
   flush stdout
 
   lassign [lindex $rot_map $guard(dir)] ydir xdir
   set ynew [expr {$guard(y) + $ydir}]
   set xnew [expr {$guard(x) + $xdir}]
-  if {$ynew < 0 || $ynew >= $map(h) || $xnew < 0 || $xnew >= $map(w)} continue
+  if {$ynew < 0 || $ynew >= $input(h) || $xnew < 0 || $xnew >= $input(w)} continue
 
   # it took me. 2 hours. to realize i needed the clause after the ||. god dammit.
-  if {[dict exists $placed_obstructions [list $ynew $xnew]] || [dict exists $map(visits) [list $ynew $xnew]]} {
+  if {[dict exists $placed_obstructions [list $ynew $xnew]] || [dict exists $input(visits) [list $ynew $xnew]]} {
     continue
   }
-  if {[dict exists $map(visits) [list $guard(y) $guard(x)] [expr {($guard(dir) + 1) % 4}]]} {
-#    foreach line $map(debug) {
+  if {[dict exists $input(visits) [list $guard(y) $guard(x)] [expr {($guard(dir) + 1) % 4}]]} {
+#    foreach line $input(debug) {
 #      puts [join $line ""]
 #    }
     dict incr placed_obstructions [list $ynew $xnew] 1
     incr potential_loops
-  } elseif {[lindex $map(grid) $ynew $xnew] != "#"} {
-    set map_backup [array get map]
+  } elseif {[lindex $input(grid) $ynew $xnew] != "#"} {
+    set input_backup [array get input]
     set guard_backup [array get guard]
 
-    lset map(grid) $ynew $xnew "#"
-    lset map(debug) $ynew $xnew "#"
+    lset input(grid) $ynew $xnew "#"
+    lset input(debug) $ynew $xnew "#"
 
     while {[step_guard]} {
-      if {[dict exists $map(visits) [list $guard(y) $guard(x)] $guard(dir)]} {
+      if {[dict exists $input(visits) [list $guard(y) $guard(x)] $guard(dir)]} {
         dict incr placed_obstructions [list $ynew $xnew] 2
         incr potential_loops
         break
       }
     }
 
-    array set map $map_backup
+    array set input $input_backup
     array set guard $guard_backup
   }
 }
 
-puts "Unique coords: [llength [dict keys $map(visits)]]"
+puts "Unique coords: [llength [dict keys $input(visits)]]"
 
 puts ""
 puts {Part 2: Number of potential looping obstructions}
-- 
cgit v1.2.3-70-g09d2