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 [eval {$p * $x}] }
    return $p
}