Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Pascal

Idiom #303 Array with non-default lower bound

Declare an array a of integers with six elements, where the first index is 42 and consecutive elements have the indices 43, 44, 45, 46, 47.

var
  a: array[42..47] of integer;

Low(a) returns 42 and High(a) returns 47
A : array (42 .. 47) of Integer;

A'First is 42, A'Last is 47, A'Length is 6.
New implementation...
< > ⌨
tkoenig 
var
  a: array[42..47] of integer;
A : array (42 .. 47) of Integer;

  integer, dimension(42:47) :: a
int a[] = new int[42 + 6];
for (int i = 42, n = 42 + 6; i < n; ++i) {

}
use Array::Base +42;

my @a = ('A'..'Z');

say $a[42]; # prints A
say $a[43]; # prints B

no Array::Base;  # restore indexing to base 0
a = array.array("i", range(42,48))