5 lines
138 B
Tcl
5 lines
138 B
Tcl
|
set four 4
|
||
|
|
set result1 [eval "expr {$four + 5}"] ;# string input
|
||
|
|
|
||
|
|
set result2 [eval [list expr [list $four + 5]]] ;# list input
|