Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 383: | Line 383: | ||
p arr[1][3] |
p arr[1][3] |
||
=={{header|Tcl}}== |
|||
{{works with|Tcl|8.5}} |
|||
<lang tcl>package require Tcl 8.5 |
|||
puts "enter dimension:" |
|||
set dim1 [gets stdin] |
|||
puts "enter dimension:" |
|||
set dim2 [gets stdin] |
|||
set l [lrepeat $dim1 [lrepeat $dim2 {}]] |
|||
lset l end end aValue |
|||
puts [lindex $l end end] |
|||
unset l</lang> |
|||
=={{header|Toka}}== |
=={{header|Toka}}== |
||