RosettaCodeData/Task/Create-a-two-dimensional-ar.../Toka/create-a-two-dimensional-ar...

5 lines
245 B
Plaintext

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