aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-12 11:43:10 -07:00
parent 4924dd0264
commit cb74b7914d
10 changed files with 60 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Function-definition/Tcl/function-definition-3.tcl Normal file
View file

@ -0,0 +1,13 @@
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 ]