4 lines
173 B
Tcl
4 lines
173 B
Tcl
puts -nonewline "Enter an element name: "; flush stdout
|
|
gets stdin elemname
|
|
set ary($elemname) [expr int(rand()*100)]
|
|
puts "I have set element $elemname to $ary($elemname)"
|