17 lines
274 B
Tcl
17 lines
274 B
Tcl
|
package require Tcl 8.6
|
||
|
|
namespace import tcl::mathfunc::min
|
||
|
|
namespace import tcl::mathfunc::max
|
||
|
|
|
||
|
|
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
|
||
|
|
}
|
||
|
|
|