advent-of-code-2024/10/2.tcl

set fp [open "input" r]
set line {}
while {[gets $fp line] >= 0} {
    lappend lines $line
}
close $fp

set height [llength $lines]
set width [string length [lindex $lines 0]]

proc out_of_range {x y} {
    global height width
    if {$x < 0 || $x >= $width} {
        return 1
    }
    if {$y < 0 || $y >= $height} {
        return 1
    }
    return 0
}

proc char_at {x y} {
    global lines
    if {[out_of_range $x $y]} {
        return -1
    }
    return [string index [lindex $lines $y] $x]
}

proc find_path {x y expect} {
    global path_cache
    if {[out_of_range $x $y]} {
        return 0
    }
    if {$expect != [char_at $x $y]} {
        return 0
    }
    if {$expect == 9} {
        return 1
    }
    set next [expr {$expect + 1}]
    set ret [expr {
        [find_path [expr {$x + 1}] $y $next]
        + [find_path [expr {$x - 1}] $y $next]
        + [find_path $x [expr {$y + 1}] $next]
        + [find_path $x [expr {$y - 1}] $next]
    }]
}

set sum 0
for {set x 0} {$x < $width} {incr x} {
    for {set y 0} {$y < $height} {incr y} {
        incr sum [find_path $x $y 0]
    }
}
puts $sum