10 lines
328 B
Tcl
10 lines
328 B
Tcl
proc print_all {args} {puts [join $args \n]}
|
|
|
|
print_all 4 3 5 6 4 3
|
|
print_all 4 3 5
|
|
print_all Rosetta Code Is Awesome!
|
|
|
|
set things {Rosetta Code Is Awesome!}
|
|
|
|
print_all $things ;# ==> incorrect: passes a single argument (a list) to print_all
|
|
print_all {*}$things ;# ==> correct: passes each element of the list to the procedure
|