adventofcode2023/prelude.tcl

package require Tcl 8.6
namespace import tcl::mathfunc::min
namespace import tcl::mathfunc::max

proc {#} args {}

proc ladd {list} {
    set t 0
    foreach x $list { incr t $x }
    return $t
}

proc lmul {list} {
    set p 1
    foreach x $list { set p [expr {$p * $x}] }
    return $p
}

proc must_regexp args {
    if {! [uplevel [concat regexp $args]]} {
        error "regexp failed"
    }
}