From 6704766ebac1fb2bdafc2114fdf2de0a403883f6 Mon Sep 17 00:00:00 2001
From: Andrew Ekstedt <andrew.ekstedt@gmail.com>
Date: Tue, 19 Dec 2023 04:57:53 +0000
Subject: [PATCH] use dict for 'visit' var in day 16

not sure if this is an improvement? it's more or less the same
as the array version
---
 day16/sol.tcl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/day16/sol.tcl b/day16/sol.tcl
index 9b06ff1..9ffa194 100755
--- a/day16/sol.tcl
+++ b/day16/sol.tcl
@@ -20,16 +20,16 @@ proc read-input {input} {
 
 proc reset-visited {} {
     global visit
-    array unset visit
+    set visit [dict create]
 }
 
 proc mark-visited {x y d} {
     global visit
     set v [switch -exact -- $d n {expr 1} s {expr 2} w {expr 4} e {expr 8} default {error "invalid dir '$d'"}]
-    incr visit($y,$x) 0
-    set result [expr {($visit($y,$x) & $v) != 0}]
-    set visit($y,$x) [expr {$visit($y,$x) | $v}]
-    return $result
+    dict incr visit $y,$x 0
+    set old [dict get $visit $y,$x]
+    dict set visit $y,$x [expr {$old | $v}]
+    return [expr {($old & $v) != 0}]
 }
 
 proc print-visited {} {
@@ -39,7 +39,7 @@ proc print-visited {} {
     for {set i 0} {$i < $height} {incr i} {
         set row {}
         for {set j 0} {$j < $width} {incr j} {
-            if {[info exist visit($i,$j)] && $visit($i,$j)} {
+            if {[dict exists $visit $i,$j] && [dict get $visit $i,$j]} {
                 lappend row "#"
             } else {
                 lappend row "."
@@ -93,7 +93,7 @@ proc solve {} {
         set beams [follow $beams]
     }
     print-visited
-    puts [array size visit]
+    puts [dict size $visit]
 }
 
 proc lmax {list} {
@@ -125,8 +125,8 @@ proc solve2 {} {
         while {[llen $beams] > 0} {
             set beams [follow $beams]
         }
-        puts [array size visit]
-        lappend l [array size visit]
+        puts [dict size $visit]
+        lappend l [dict size $visit]
     }
 
     puts [lmax $l]
@@ -135,7 +135,7 @@ proc solve2 {} {
 read-input stdin
 puts [array get grid]
 puts [follow {0 0 e}]
-puts [array get visit]
+puts [dict get $visit]
 
 solve
 solve2