Create a two-dimensional array at runtime

kyocera ringtones nexium online midi ringtones free cingular ringtones free nextel ringtones nexium online mono ringtones free cingular ringtones tenuate online sony ringtones ambien online free cingular ringtones tracfone ringtones cheap xenical cheap flexeril zoloft online cialis buy hoodia cheap prozac but valium cheap albuterol order hgh rivotril online xanax online cheap cyclobenzaprine diazepam online cialis online flexeril online sprint ringtones zyban online free tracfone ringtones cheap valium order hydrocodone online cyclobenzaprine cheap vigrx propecia online rivotril online cheap norco free free ringtones free sony ericsson ringtones cheap vigrx free mp3 ringtones mtv ringtones free sagem ringtones free tracfone ringtones free sony ringtones levitra online nexium ambien tracfone ringtones cheap hydrocodone buy ambien but phentermine but cialis ortho online free midi ringtones alprazolam online lipitor online buy wellbutrin online pharmacy online free samsung ringtones cool ringtones free funny ringtones free alltel ringtones fioricet online free nokia ringtones paxil online lortab online sony ericsson ringtones free polyphonic ringtones cheap lipitor order ortho cool ringtones cheap prozac cheap hgh viagra online jazz ringtones sildenafil online sony ericsson ringtones hgh online free sagem ringtones free ericsson ringtones viagra online tramadol online adipex online polyphonic ringtones hgh online xanax online cheap viagra hoodia online norco alprazolam online cheap ativan hydrocodone online ultram online xanax sony ringtones verizon ringtones sony ericsson ringtones punk ringtones zanaflex online music ringtones music ringtones viagra online cheap hydrocodone cheap xenical sharp ringtones hgh online phentermine online celexa online free free ringtones hgh online celexa online free nokia ringtones free motorola ringtones soma online free motorola ringtones cheap tramadol buy cyclobenzaprine norco online cheap celexa cyclobenzaprine online cheap ultram propecia online cheap celexa free verizon ringtones xenical online but ambien cheap albuterol cheap ultram ultram online buy tramadol ambien online carisoprodol online free mp3 ringtones norco vicodin online sony ringtones buy hoodia cheap sildenafil cheap vicodin motorola ringtones free jazz ringtones free qwest ringtones cheap cialis cheap ambien lisinopril online verizon ringtones cheap valium ultram online meridia online cheap levitra cheap xenical cool ringtones cheap ortho cheap xanax online fioricet but fioricet nokia ringtones lipitor online mono ringtones buy diethylpropion sharp ringtones jazz ringtones diethylpropion online phentermine online hydrocodone online free sharp ringtones sony ericsson ringtones free cool ringtones order flexeril cheap didrex free nextel ringtones buy zyban free ericsson ringtones hoodia online free tracfone ringtones free cool ringtones free music ringtones cheap clonazepam cheap didrex ultracet cheap celexa flexeril online free sagem ringtones free tracfone ringtones zyban online lortab online cheap ultracet cheap lorazepam zoloft buy nexium cheap xenical free nokia ringtones mono ringtones free nextel ringtones motorola ringtones lortab online cheap diazepam qwest ringtones

Create a two-dimensional array at runtime
You are encouraged to solve this task according to the task description, using any language you may know.

Get two integers from the user, then create a two-dimensional array where the two dimensions have the sizes given by those numbers, and which can be accessed in the most natural way possible. Write some element of that array, and then oputput that element. Finally destroy the array if not done by the language itself.

Ada

with Ada.Text_Io; use Ada.Text_Io;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;

procedure Two_Dimensional_Arrays is
   type Matrix_Type is array(Positive range <>, Positive range <>) of Float;
   Dim_1 : Positive;
   Dim_2 : Positive;
begin
   Get(Item => Dim_1);
   Get(Item => Dim_2);
   -- Create an inner block with the correctly sized array
   declare
      Matrix : Matrix_Type(1..Dim_1, 1..Dim_2);
   begin
      Matrix(1, Dim_2) := 3.14159;
      Put(Item => Matrix(1, Dim_2), Fore => 1, Aft => 5, Exp => 0);
      New_Line;
   end;
   -- The variable Matrix is popped off the stack automatically
end Two_Dimensional_Arrays;

C

With language built-in facilities:

#include <iostream>
#include <istream>
#include <ostream>

int main()
{
  // read values
  int dim1, dim2;
  std::cin >> dim1 >> dim2;

  // create array
  double* array_data = new double[dim1*dim2];
  double** array = new double*[dim1];
  for (int i = 0; i < dim1;   i)
    array[i] = array_data   dim2*i;

  // write element
  array[0][0] = 3.5;

  // output element
  std::cout << array[0][0] << std::endl;

  // get rid of array
  delete[] array;
  delete[] array_data;
}

Using std::vector from the standard library:

#include <iostream>
#include <istream>
#include <ostream>
#include <vector>

int main()
{
  // read values
  int dim1, dim2;
  std::cin >> dim1 >> dim2;

  // create array
  std::vector<std::vector<double> > array(dim1, std::vector<double>(dim2));

  // write element
  array[0][0] = 3.5;

  // output element
  std::cout << array[0][0] << std::endl;

  // the array is automatically freed at the end of main()
}

Clean

import StdEnv

Start :: *World -> { {Real} }
Start world
    # (console, world) = stdio world
      (_, dim1, console) = freadi console
      (_, dim2, console) = freadi console
    = createArray dim1 (createArray dim2 1.0)

Common Lisp

(let ((d1 (read))
      (d2 (read)))
  (assert (and (typep d1 '(integer 1)) 
               (typep d2 '(integer 1))) 
          (d1 d2))
  (let ((array (make-array (list d1 d2) :initial-element nil))
        (p1 0)
        (p2 (floor d2 2)))
    (setf (aref array p1 p2) t)
    (print (aref array p1 p2))))

The assert will allow the user to reenter the dimensions if they are not positive integers.

Java

import java.io.*;

public class twoDimArray {
  public static void main(String[] args) {
     try {
        BufferedReader in = new BufferedReader(new InputStreamReader(System.in));
        
        int nbr1 = Integer.parseInt(in.readLine());
        int nbr2 = Integer.parseInt(in.readLine());
        
        Double[][] array = new Double[nbr1][nbr2];
        array[0][0] = 42.0;
        System.out.println("The number at place [0 0] is "   array[0][0]);
        
     } catch(IOException e) { }
  }
} 

Perl

Interpreter: Perl 5.x

Predefining an array (or multi-dimension array) size is unnecessary, Perl dynamically resizes the array to meet the requirements. Of course I'm assuming that the user is entering array size 0 based.

sub make_array($ $){
  # get array sizes from provided params, but force numeric value
  my $x = ($_[0] =~ /^\d $/) ? shift : 0;
  my $y = ($_[0] =~ /^\d $/) ? shift : 0;
  
  # define array, then add multi-dimensional elements
  my @array;
  $array[0][0] = 'X '; # first by first element
  $array[5][7] = 'X ' if (5 <= $y and 7 <= $x); # sixth by eighth element, if the max size is big enough
  $array[12][15] = 'X ' if (12 <= $y and 15 <= $x); # thirteeth by sixteenth element, if the max size is big enough
  
  # loop through the elements expected to exist base on input, and display the elements contents in a grid
  foreach my $dy (0 .. $y){
    foreach my $dx (0 .. $x){
      (defined $array[$dy][$dx]) ? (print $array[$dy][$dx]) : (print '. ');
    }
    print "\n";
  }
}

Pop11

vars itemrep;
incharitem(charin) -> itemrep;
;;; Read sizes
vars n1 = itemrep(), n2= itemrep();
;;; Create 0 based array
vars ar = newarray([0 ^(n1 - 1) 0 ^(n2 - 1)], 0);
;;; Set element value
15 -> ar(0, 0);
;;; Print element value
ar(0,0) =>
;;; Make sure array is unreferenced
0 -> ar;

Pop11 is garbage colleted so there is no need to destroy array. However, the array is live as long as variable ar references it. The last assignment makes sure that we loose all our references to the array turning it into garbage.

Pop11 arrays may have arbitrary lower bounds, since we are given only size we create 0 based array.

Python

Interpreter: Python 2.5

 width = int(raw_input("Width of array: "))
 height = int(raw_input("Height of Array: "))
 array = [[0] * width for i in range(height)]
 array[0][0] = 3.5

Note: Some people may instinctively try to write array as [[0] * with] * height, but the * operator creates n references to [[0] * width]

IDL

The following is only for demonstration. No real program should just assume that the user input is valid, integer, large enough etc.

read, x, prompt='Enter x size:'
read, y, prompt='Enter y size:'
d = fltarr(x,y) 

d[3,4] = 5.6
print,d[3,4]
;==> outputs  5.6

delvar, d

Toka

Toka has no direct support for 2D arrays, but they can be created and operated on in a manner similar to normal arrays using the following functions.

[ ( x y -- address )
  cells malloc >r
  dup cells >r
  [ r> r> r> 2dup >r >r swap malloc swap i swap put-element >r ] iterate
r> r> nip
] is 2D-array

[ ( a b address -- value )
  get-element get-element
] is 2D-get-element

[ ( value a b address -- )
  get-element put-element
] is 2D-put-element

And a short test:

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