Retrieving an Element of an Array

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

Retrieving an Element of an Array
You are encouraged to solve this task according to the task description, using any language you may know.

In this task, the goal is to retrieve an element of an array.

4D

  ` first element
$elem:=$array{1}

X86 assembly

Assembler: nasm

mov esi, array_offset
mov ebx, 2
mov eax, [esi ebx*4]

ActionScript

var arr:Array = new Array(1,2,3);
var myVar:Number = arr[1];
// the value of myVar is: 2

Ada

Array indexed by an enumerated type. Ada enumerated types are discrete non-numeric types.

type Days is (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
type Daily_Counts is array(Days) of Natural;
This_week : Daily_Counts := (200, 212, 175 220, 201, 120, 0);
Monday_Sales : Natural;

Monday_Sales := This_Week(Mon); 

Monday_Sales is assigned 200

AppleScript

on getArrayValue(array, location)
    -- very important -- The list index starts at 1 not 0
    return item location in array
end getArrayValue

C

 int array_index(int array[], int index) {
   return array[index];
 }

C#

 int getArrayValue( int values[], int index ) {
   return values[index];
 }
 

C

 template<typename T>
 T array_index(T array[], size_t index) {
   return array[index];
 }

ColdFusion

<cfset arr = ArrayNew(1)>
<cfset arr[1] = "one">
<cfset arr[2] = "2">
<cfset arr[3] = 3>
<cfset var = arr[1]>

The value of var is "one"

ColdFusion Arrays are NOT zero-based, their index begins at 1

Common Lisp

  (defun array-value (array index)
    (aref array index))

Delphi/Object Pascal/Turbo Pascal/Standard Pascal

Array's in all the flavors of pascal can be of any valid base type, or user defined type ( which are all made up of base types ) and are multi-dimensional. With Delphi dynamic arrays were defined but had been used in pascal since its inseption.

A Static array defintion:

foo : array[1..10] of integer; { The base index is ONE }

The base index can be freely chosen:

foo: array[7 .. 16] of integer; { The base index is 7 }

Indeed, the "1 .. 10" resp. "7 .. 16" are actually types: they are integer subrange types. Arrays can also be indexed by enumeration types or enumeration subrange types:

type
 rainbowcolor = (red, orange, yellow, green, blue, violet);
var
 foo: array[rainbowcolor] of integer;
 bar: array[yellow .. blue] of integer;
 i: integer
begin
 i := foo[red]; { allowed indices are red, orange, yellow, green, blue, violet }
 i := bar[green]; { allowed indices are yellow, green, blue }
end;

A Dynamic Array type in Delphi:

foo : array of integer ; // The base index is ZERO

An "old school" dynamic array in the various flavors of pascal

foo : array[0..0] of integer;  // The base index is ZERO

A dynamic array in Extended Pascal:

type
 intarray(n: integer) = array[1 .. n] of integer; { base index 1 }
var
 foo: ^intarray;
begin
 new(foo, 10); { foo now has index 1 to 10 }
 i := foo[2];
 dispose(foo); { get rid of the array }
end;

In the case of the static array, the compiler generates the code to allocate the required memory to hold 10 integers.

In the Delphi style ---dynamic--- array you must set its length:

SetLength(foo,10);  // this array will no hold 10 integers

In the "old school" style of dynamic arrays, you created a point to the zero length declaration and then allocated memory to it with GetMem

pFoo : ^Foo ;
Foo  : array[0..0] of integer ;

All arrays are accessed the same way regardless of declaration method.

i : integer ;

i := foo[n] ;

where n is the array index who's base is either 1 or 0 depending on how it was declared.

Erlang

Erlang lists are 1-based which means that the index must be within the bounds (1 .. length(List)):

Value = lists:nth(Index, List).

Forth

Forth does not have special syntax for array access. Address arithmetic is used to access contiguous memory.

create array 1 , 2 , 3 , 4 ,
array 2 cells   @ .    \ 3

IDL

 ; this is allowed:
 result = arr(5) 
 ; but this is preferred:
 result = arr[5]

The form with square brackets is preferred as it unambiguously constitutes array access, while the version with round ones can conflict with a function call if there are both a function and an array with the same name arr.

Java

public Object getArrayElem(Object[] array, int pos) {
    return array[pos];
}

JavaScript

var element = array[index];

mIRC

Interpeter: mIRC Script Editor

Library: mArray Snippet

 alias readmyarray { echo -a $array_read(MyArray, 2, 3) }

Perl

Interpreter: Perl 5.8.8

$elem = $array[0];

PHP

$array = array('php', 'has', 'arrays');
// First element 
$elem  = $array[0];

Pop11

lvars ar = {1 two 'three'};
lvars elem;
;;; Access second element and assign to variable elem
ar(2) -> elem;

This example uses the simplest possible array (a vector). Pop11 has more general arrays, but in all cases access follows the same pattern, and look the same as procedure (function) call.

Python

Interpreter: Python 2.5

The item is an element in a list at a given index

 item = aList[index]

or

To use a list like a stack be it FIFO/LIFO

 aList.pop()  # Pop last item in a list
 aList.pop(0) # Pop first item in a list

Note: When using the pop() method, the element is removed from the list.

Ruby

 ary = ['Ruby','rules','big','time']
 #the first element
 element = ary[0]
 #or
 element = ary.first
 # => element = 'Ruby'

 #the last element
 element = ary[-1]
 #or
 element = ary.last
 # => element = 'time'

 #retrieving different values at once
 elements = ary.values_at(0,2,3)
 # => elements = ['Ruby','big','time']

 #select the first element of length 3
 element = ary.find{|el|el.length==3}
 # => element = "big"

Smalltalk

  "Retrieve second element of an array"
  index := 2
  element := anArray at: index

Tcl

All arrays in Tcl are associative. If "key" is the variable that holds the key of the element to be retrieved, then

 set result $array($key)

Toka

This retrieves the value 20 from the second item in the array:

 3 cells is-array table

 ( Populate the array )
 10 0 table put-element
 20 1 table put-element 
 30 2 table put-element
 
 table 1 get-element