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

=={{header|C sharp|C#}}==

<lang csharp>

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Enter two integers. Space delimited please: ");

string s = Console.ReadLine();

int[,] myArray=new int[(int)s[0],(int)s[2]];

myArray[0, 0] = 2;

Console.WriteLine(myArray[0, 0]);

Console.ReadLine();

}

}</lang>

=={{header|F Sharp|F#}}==

<lang fsharp>open System

let width = int( Console.ReadLine() )

let height = int( Console.ReadLine() )

let arr = Array2D.create width height 0

arr.[0,0] <- 42

printfn "%d" arr.[0,0]</lang>

=={{header|Perl 6}}==

{{works with|rakudo|2015-11-28}}

Line 1: The input parse doesn't care how you separate the dimensions as long as there are two distinct numbers.

Line 2: The list replication operator <tt>xx</tt> will automatically thunkify its left side so this produces new subarrays for each replication.

Line 3: Subscripting with a closure automatically passes the size of the dimension to the closure, so we pick an appropriate random index on each level.

Line 4: Print each line of the array.

<lang perl6>my ($major,$minor) = prompt("Dimensions? ").comb(/\d+/);

my @array = [ '@' xx $minor ] xx $major;

@array[ *.rand ][ *.rand ] = ' ';

.say for @array;</lang>

Typical run:

<lang>Dimensions? 5x35

[@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @]

[@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @]

[@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @]

[@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @]

[@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @]

</lang>

The most recent versions of Rakudo have preliminary support for 'shaped arrays'. Natively shaped arrays are a flexible feature for declaring typed, potentially multi-dimensional arrays, potentially with pre-defined

dimensions. They will make memory-efficient matrix storage and matrix operations possible.

<lang perl6>my ($major,$minor) = +«prompt("Dimensions? ").comb(/\d+/);

my Int @array[$major;$minor] = (7 xx $minor ) xx $major;

@array[$major div 2;$minor div 2] = 42;

say @array;</lang>

Typical run:

<lang>Dimensions? 3 x 10

[[7 7 7 7 7 7 7 7 7 7] [7 7 7 7 7 42 7 7 7 7] [7 7 7 7 7 7 7 7 7 7]]</lang>