Logo

Programming-Idioms

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

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;
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 feature 'say';
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
import array
a = array.array("i", range(42,48))
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))