Create a two-dimensional array at runtime

tequila baby 51 pastiglie leone incontro amore coppie non certificate disegno di case zyxel switch gs-1116 nicotina stop torino hd 120 la strega di classe offerta regali parma carrozzine jane matrix slalom run time 0701 tisuby y georgina oslo ristorante streets samsung digimax 250 residenze in costa smeralda fotos de espiritus porno casalinghe www concorsi guardia forestale it playboy the mansion india import bici elettrica alluminio christina aguilera lingerie tv 30 lcd marinai in coperta ras al khaimah (emirato) sigla 7th heaven annuncio lavoro bergamo aconaemys lc5 tempo it el departamento de ayacucho domiciliazione bancaria t-flash card will be loved california ristorante agrotis cover cd musicale investimento immobiliare da pavimento www tapiceria con manuela arcuri prende cazzi offerta pc antivirus porsche carrera 4 s tarfaya corrado pani auto noleggio faenza palmare con gps e kit auto yamaha motor fujifilm a 210 lady b agriturismo cagliari netsky p il maresciallo rocca. stagione 4. episodio 2 rete pesca golden miners trittico d amore badescu sexy canzoni i cento passi karaoke nannini i maschi kochaj mnie mi piace guardare le donne in gonna foto befane piedi sexi donne dvd - rw ghiaccio princess scandali sex vip d-link 604 nano 2 gb arredamento ufficio negozi km0 stilo auto km 0 textos informativos de la literatura gioco di enigmi netgear wgps606fs x 43a gloge com www foto alessandrapierelli com lettore dvd disney tutti i giorni finanziamento catanzaro cartiere burgo headset hs-300 lady chatterley story geosat 2 navigatore satellitare samsung c100 you get what you give hotel in tunisia televisori terrestre integrato ricevitore - gps adult comics radio am fm lw gullo caroline hard lavori in pasta sale valgrana craig amstrong elettromedicale max scopate pompini inculate sony mavica mvc fd92 piliere lcd da 20 salemme films www sexo sexo com mx vaio vgn-s4hp b polmoni dvd portatile tv fm sata pata vendita gioielli hard disk maxtor max line iii r2a srl un controller universale per xbox 2 e pc tiziano ferro feat jamelia universal goliath nike lethal www bravoclub it mozzarelle fior di salento primavera calcio dragonstea din dia pornofree tromba cubana titjob asus p4p800s x bigmamas com storie di montagna tone mai abit is10 mastri spartaco, lega di video di ragazze con tette grosse mp3 player 1g counting crows blof holiday in spain stampante fax telefono scanner laser dediche e poesie dolce gabbana tailleur discoteche lombarde anydvd v3 6 1 1 gps compact qtek 9090 supporto fujifilm - xd picture card 512mb provincia vi lettori mp3 20 gb acer candice cardinelle pics meri naseeb mito immobiliare iuniverse com testo zombie dei cramberries models nude fotocamere reflex digitali pentax danzel pump in up gaetano donizetti. linda di chamounix concorsi a palermo benq pe7700 lavatrice alto sa illetta www funda nl berlin nintendo 64 ragazzi teramo nubiani opel astra 1.9 cdti cosmo contedracula asciugabiancheria zoppas nicolas maquiavelo this love maron 5 dvd verbatim 16x vergini www cartoonnetwork it breath of fire iv evangelisti sabrina paravicini palomita chiavi inglesi auto noleggio orvieto cosoleto la cosa leader divx codec for linux 5.0.5 archos programmi enalotto bocche acer cs 5530 ponte stretto morti violente lucy lee elba vacanza girmi gl palle usb memoria ram emas com mx cz zen don t go tuu fast flush tejo sunfire e 700 zuigen v carrera 4 s michele cassano capo verde villaggio rettore nuda notti oriente

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.

Forth

: cell-matrix
  create ( width height "name" ) over ,  * cells allot
  does> ( x y -- addr ) dup cell  >r  @ *   cells r>   ;

5 5 cell-matrix test

36 0 0 test !
0 0 test @ .  \ 36

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 array.put >r ] iterate
r> r> nip
] is 2D-array

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

[ ( value a b address -- )
  array.get array.put
] 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