RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Toka/create-a-two-dimensional-array-at-runtime-2.toka

5 5 2D-array >r             #! Create an array and save the pointer to it
10 2 3 r@ 2D-put-element    #! Set element 2,3 to 10
2 3 r@ 2D-get-element       #! Get the element at 2,3
r> drop                     #! Discard the pointer to the array
langs a-z 2013-04-10 22:43:41 -07:00			`5 5 2D-array >r #! Create an array and save the pointer to it`
			`10 2 3 r@ 2D-put-element #! Set element 2,3 to 10`
			`2 3 r@ 2D-get-element #! Get the element at 2,3`
			`r> drop #! Discard the pointer to the array`