day 16 part 1

day16/input

@@ -0,0 +1,110 @@
+\.\............/........|............/.-....................|............|.......-..............//....../../..
+......\.-/..|...............-...-\......../.............-.../.............../........-................../../..
+.........\..\......................................................../\.......\.............................-.
+....|.........-..................|..../....-......................................|.../...............|.../...
+.....|...|..-....|................/............./......./............../|.......|.....|.................../...
+.........-............../.|.-...\..........................|..................//............-\......|.........
+.........|...................||.........-.|/.......---...-...........\........\.-...\..../......|.............
+.......|-................................................................./........../..../...................
+......-......|......././...............................\.....\.........|...........|..\-............|\........
+|...\.............................-...\\-.................|................................-.........|........
+...\....|.|........................-.........................\..|............................-....|...........
+\.........|..|./....................../..........-......|...-....................\....-../...\.-.....|/.......
+......\./................|...................-....../..................................|.......-....-.........
+......-.........................................|....\..................../-./-.......|........./.............
+................|...|...\....\....-....//........./...../.....-..............|\.|..\.........\......./\....\.\
+.\...|.....|......./....-...........|.............-..\...-..-....................|.../.....-...........--.....
+......................................-................../..............\.\\........../.../................\..
+.-..........|..|......................|....|.-|.....................-..../............|......./..../..\/.-.\..
+..\..\.............../-......-................-......................................\....../......|..........
+.........\.....\.......................................-../........./-....-.................\....../..../.....
+......-..\..-.............|...................|....../.......\../........../.....-............................
+.............|../.\...\....|...............|.........../..|-....../........../..../|.|.\........|........\..|.
+..\............|...../...................\......................./...-.......-..........................-.....
+....|......................|......../.|.\.../......|...|..-.....................|................../..\.......
+.....................................................-................/\..-....|..........................-.\.
+................../...\..........\...........\............................................./.../.........|.|..
+.....-......................................./....-........|.-........................|.........\.....\.......
+...............\/\..........|.|................................|.\......\......\............|...-.............
+..................................\.......-.........|-........../...........\\..\.|../......|........\..|.....
+..............-...........\.....\\./......................./...-...........-..........................././....
+...-..............-..........................\..........|...........-/........../.../...|.....................
+...\..............-......./-...........|............./.......-./........-..-....|......./\.-.......\./........
+.........|......././..\.-......./............-....-..................|....-......../........-.........\.......
+....|.........................../....................-..................-...\|............................|...
+.-........-...........|..............................|.........................................\......-......-
+............./......../..-....\...............................././.......|................................|...
+.|\../......-./........./...............-./..............\../..............|....|........./...................
+..................................................|............................-..............................
+.............-...................\.......|........|.............../......-....|......../.../.-...\|...........
+.................../..............-|........................|.............\..\.........................././...
+...../.........../..-.......|........../.......|........................./......|......./..........|..........
+../...-........../...........................-.|..\../..................\.....-...........|...................
+.........\.......-.......-.\.|......|.......||......|.\....-...-.................-..........-..\..............
+................................\./.......\/............-................./.....\......../....................
+/...........-......|..|....../.....\.........|.....................................\...................|....-.
+...........\.............../.......\......................................................................\..-
+....../...................-..................|-\......................-..................\....................
+/............./...........|.....|............/.................................-....................-......\|.
+...............\..|..............|............\../.../..........................\\................|......./...
+....--/............|......|......-........-...../........./.........../-..\..|........-.......................
+|.-....-.........................|../................\................../......\..../.\..|...../.../|.........
+....................................../.........\........-....................../.-..-.\.....././.../.....\..\
+......\...../............./................-...........\.................../.....-../......-..................
+....../............../...........|......|..................................|...................|..............
+......-../.../.|.........././..........\.......\........./......|..............\.................-.........../
+...../...|........//...../.................\................../.\.............-............/.........../......
+..............-.....|................\................/.........|.....\.......\....................\.....\....
+..........|..........-.../..................\.-.......................................\..-.........|..........
+....|..................-.....|..................|...........-......./.....-......../...|........\....\-.|.....
+.......................-......./......................./.-.-.........|.....|.................|................
+...|................/......-.....|....-..-.........-|....|..................../.../....-......\.......-......\
+............-.............................-...................../..............|.|.......-....................
+-....-..............|................./......../.\............./../............../..-...-...........|.........
+.|............|..........-................./................|.....................|./....\......./.....\......
+..........|\.|...................-.............\......|..-..\.......\..........\........|......-.../........\.
+\.......\....................\..............|................................|..............-.../.............
+......../-....................|...............-........................\................\..............-......
+...|..-.............//.-.............../........-........../..|.............\|../....................-........
+..../.\.-.-|.....\.-|..../.....\..|.........../........................-.....................-..........|.....
+...../-..........\.........-....................\.............................\............|-..\..........|...
+...-...../....................../-......\...|.....-........................../.|.........|.......\..\.....\../
+...................\...../......................./...-.....\.-.........-...../.|...................|......./..
+../.....|..|..\.........|.../.................../..-............\../........\.....\.....................\.....
+.........................../...\.|........\...||..........\......\.-....|.........\-..\.......................
+../.........|............................/../-||..............|-........\............\....\.\................|
+../....|....................|.....|-.......|.................../...\.-.\.............-.................-......
+....|..............................................................-|.........................................
+..................\-.\/.........|../|....../|..\...-...\.........|/............./...\...\.....................
+.\.........-../....|-......................./................/\..\........................................./..
+./......................-...............|...............|................-.......................\............
+................\..........././............................-....\/..........-.../../....|.........-....|...../
+.-..-..|\..\/........\./....|.......................\.........../.....|......./-.-..../..../..................
+\.....|........................../.|...../.-...............|.../\...|.........|.\|....../.-......|............
+.........-|............./..../.\.|//.......-....-...........\.........-..-.........\....\..........|..........
+....................|.......-../.....\-..........\................-..................\.-........|.............
+.....|.\-........................./........................................../.......-.\....-......../........
+...................|..............\..|/................................|/..../........../..|.................|
+.......\...|./......../..........-............-....|...........-/.\...-......./....\......./........\....../..
+...\............\..........\../................./....-......|..........................................\......
+............|......|......../.............\...|.....................\.\\......................................
+-.-.-......\.......|..........-.|.....|\....\/..............-/..........|............|......./.........-......
+......................../...|................./......\............../..............-/.......\.....\\..........
+...|.|.-..-./..................../................................-....\|........./...-..|........\......-....
+....\....-../.........|....|........-./..\../...|...../-.|.|....\................................./...|......-
+..............\../..............|.|................\......./.............../.\......|.....|..\...../....../...
+............|....\......|........|.......\.................................................../.-..............
+.|............|...\....................../............................................\.......|.-.-...........
+.....-.\|......\.............|............|....-.........\....|.............................../....\....-.|...
+............|./.........................\...|..............................\...|..|..............|...-........
+.-.....|..................|....-.............-..\..-...............-....-..................-..................
+..\......-.-./..................................-............\........./........-.-.............-............-
+..../.\--...............//..................................||................\.................|......|......
+..|./...\......................|.........../........\.....-....-.................................../-....\....
+.........-........\..............................|.......|......../...........|....../......|..\.|..../.......
+....../....-....|\............|.....|..\../||....................................\.....................-......
+.....\.....--...././......................-........\\............-...............\....-....|................./
+........./........../...-................/...........-............................................-........./.
+.........-..-...|/..\.........................\............\..-........-.........-...............\......|./.-.
+|......................-.....-..-.........../-..................|.....|.........\./........./...-/............
+..............-...........|-....-.../.............-........./...../.................../.......--.|....-..../..

day16/sample1.in

@@ -0,0 +1,10 @@
+.|...\....
+|.-.\.....
+.....|-...
+........|.
+..........
+.........\
+..../.\\..
+.-.-/..|..
+.|....-|.\
+..//.|....

day16/sol.tcl

@@ -0,0 +1,87 @@
+#!/usr/bin/env tclsh
+source ../prelude.tcl
+
+proc read-input {gridp input} {
+    upvar $gridp grid
+    set i 0
+    while {[gets $input line] >= 0} {
+        set j 0
+        foreach c [split $line ""] {
+            set grid($i,$j) $c
+            incr j
+        }
+        incr i
+    }
+}
+
+proc mark-visited {visitp x y d} {
+    if {$x < 0} {return 0}
+    upvar $visitp 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
+}
+
+proc follow {gridp visitp beams} {
+    upvar $gridp grid
+    upvar $visitp visit
+    set newbeams {}
+    foreach {x y d} $beams {
+        if { [mark-visited visit $x $y $d] } continue
+        switch $d {
+            n { incr y -1 }
+            s { incr y +1 }
+            w { incr x -1 }
+            e { incr x +1 }
+        }
+        if {![info exists grid($y,$x)]} continue
+        switch -exact "$grid($y,$x) $d" {
+            {\ n} { set d w }
+            {\ s} { set d e }
+            {\ e} { set d s }
+            {\ w} { set d n }
+            {/ n} { set d e }
+            {/ s} { set d w }
+            {/ e} { set d n }
+            {/ w} { set d s }
+            {| w} { set d {n s} }
+            {| e} { set d {n s} }
+            {- n} { set d {w e} }
+            {- s} { set d {w e} }
+        }
+        foreach d' [split $d] {
+            lappend newbeams $x $y ${d'}
+        }
+    }
+    return $newbeams
+}
+
+proc solve {} {
+    global grid
+    set beams {-1 0 e}
+    while {[llen $beams] > 0} {
+        set beams [follow grid visit $beams]
+    }
+    set t 0
+    for {set i 0} {$i < 110} {incr i} {
+        set row {}
+        for {set j 0} {$j < 110} {incr j} {
+            if {[info exists visit($i,$j)] && $visit($i,$j)} {
+                lappend row "#"
+                incr t
+            } else {
+                lappend row "."
+            }
+        }
+        puts [join $row ""]
+    }
+    puts [array size visit]
+}
+
+read-input grid stdin
+puts [array get grid]
+puts [follow grid visit {0 0 e}]
+
+solve