Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Multi-dimensional-array/Tcl/multi-dimensional-array-4.tcl
+++ b/Task/Multi-dimensional-array/Tcl/multi-dimensional-array-4.tcl
@ -0,0 +1,22 @@
+% array set x {
+    0,0 a
+    0,1 b
+    1,0 c
+    1,1 d
+}
+% parray x
+x(0,0) = a
+x(0,1) = b
+x(1,0) = c
+x(1,1) = d
+% puts $x(0,1)
+b
+% set a 0
+1
+% set b 1
+% puts $x($b,$a)
+c
+% set $x($b,$a) "not c"
+not c
+% parray x $b,$a
+x(1,0) = not c