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

4 lines
126 B
Plaintext

make "a2 mdarray [5 5]
mdsetitem [1 1] :a2 0 ; by default, arrays are indexed starting at 1
print mditem [1 1] :a2 ; 0