Create a two-dimensional array at runtime: Difference between revisions

Content added Content deleted

Inline

@@ Line 363: / Line 363: @@
 array(1,1) = 1.234
 WRITE(Messagebox, Name) array(1,1) </lang>
+=={{header|Icon and Unicon}}==
+All Icon and Unicon data objects are automatically reclaimed.
+Multiply dimensioned arrays are arrays of arrays in both languages.
+==={{header|Icon}}===
+<lang icon>procedure main(args)
+    nr := integer(args[1]) | 3  # Default to 3x3
+    nc := integer(args[2]) | 3
+    A := list(nr)
+    every !A := list(nc)
+    x := ?nr    # Select a random element
+    y := ?nc
+    A[x][y] := &pi
+    write("A[",x,"][",y,"] -> ",A[x][y])
+end</lang>
+Sample output:
+<pre>->ar 65 2
+A[37][1] -> 3.141592654
+</pre>
+==={{header|Unicon}}===
+The Icon solution also works in Unicon.
 =={{header|IDL}}==