14 lines
197 B
Tcl
14 lines
197 B
Tcl
|
proc multiply { a b args } {
|
||
|
|
|
||
|
|
set product 1
|
||
|
|
|
||
|
|
foreach m [list $a $b {*}$args] {
|
||
|
|
|
||
|
|
set product [expr {$product * $m}]
|
||
|
|
}
|
||
|
|
|
||
|
|
return $product
|
||
|
|
}
|
||
|
|
|
||
|
|
puts stdout [multiply 3 4 7 9 -2 -5 ]
|