24 lines
399 B
Tcl
24 lines
399 B
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
|
|
}
|
|
|
|
proc must_regexp args {
|
|
if {! [uplevel [concat regexp $args]]} {
|
|
error "regexp failed"
|
|
}
|
|
}
|