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

Content added Content deleted

Inline

Revision as of 10:38, 29 August 2007

cibo per suini modellismo bmw liv ullmann volkswagen golf 16 3p gl gear miting srl serenade islanda olympus camedia d 370 bloodflowers causas y efectos de la violencia juvenil tesina sull unione europea wisi y yandel dolce e gabbana cappelli suono puntuale kit video sorveglianza sound blaster audigy 2 zs video editor perreo videos jackal bakura hot shot melizah fiat punto sporting speedgear ati vivo agp mareb bingley delirium troie sicilia richiesta geologi hp stampanti pc yashica reflex fotocamere auto sconti sky key hex libri infortuni sportivi jovana divx dvd recorder daniela quei cari parenti onkyo sintoamplificatori data traveler ii dissipatore per ram progetti schemi elettronici tx fm firmware cam rnav colours feat domino hold me and kiss me lancia musa monkey adattatore s video vga asrock combo z demonio dalla faccia dangelo latte plasmon 1 neonati vaporella forever 1000 speedo active brief fujifilm fuji finepix s2 pro distraction un attimo ancora dei gemelli diversi pippo briciola e nuvola bianca felpa roma philips lcd 23 olivetti black metal foto culi con perizoma gratis concordancia passat 130 cv philips kit home theatre e dvd www assutador com br hp multifunzione 1315 grossi dildo a ventura scanno calcio euro 2004 lianli pc6077 believe my heart nude britni spirs pepsi pink sony hd5 dicks in pussy abbasso mio marito giochi sottomarini passenger van rental yogurt special force mc liv tayler tuo annuncio dvd 992 p5gd2 i915p gtr pc videogiochi kif mohammed ali bmw touring 318 hi fi 100 w toca me caratteristiche della donna bilancia ramificare sidney polak wino rinaldi gioielli filmporno da scaricare gratis moglie troie parlodel con d arabe on va t eclate republica domenicana foto wwwporno it specchio arredamento lettore usb barcode forno elettrico 30 schede video ati 256mb 128 bit timbrificio luca armani foto di spiagge volvo 960 gangbang per singoli bost a move 2 biglietti aerei roma new york warlord delivery us altaforte joe cocker unchain my heart accesar codigo dm604 s3 www lechecaliente volo bologna cancun espace srl ultime notizie di centovetrine nike moto lui guardone gt 2 0 jts strade sviluppo pellicole rally bolzano software motorola pc pc asus elettroshock appalto di servizi sarmede gocce di memoria mpeg philips al plasma hd proiettore wireless usb link 2 0 xray xb8 malattia del cuore orecchino diamante rheinkamp hotel seoul canon powershot 7 centro benessere montagna gps etrex vista color biglietti auguri cresima video di tiziano ferro amr converter ercules uudenmaan savona lettori dvd recorder divx hazzard stagione 2 www pornissimo it designjet 4000 a0 scaricare video canzoni adattatore memory stick duo notizie calciomercato roma ailanto kingston sodimm ram 400mhz 1gb barbra streisand duets dulcamara giacca piumino bartlett vernon cento gioni caterina caselli i testi di sergio endrigo porti un bacione bob palmare wifi bluetooth hp daewoo matiz 1999 dogue de bordeaux la poetica di primo levi skye sweetnam tangled un in me accessori fiat 500 creeps dogo argentino tu mi doni questo giorno sin bandera mientes tambien cam2pc trouveras verdissima soluzione maturita geometri it missing in action 2 chuck norris film simone video campionato calcio serie c1 giradischi pliohippus kal ho na mp3 20gb homeportal michelle vieth nude telit gu1100 lg gsa4165b www divididos com ar gamba collant spartherm the rasmus in the shadows seca hex files cfsdf jvc mc200 bisex vicenza acer travelmate serie 3000

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