22 lines
1.3 KiB
Text
22 lines
1.3 KiB
Text
(
|
|
[1:10]INT a;
|
|
a := (1,2,3,4,5,6,7,8,9,10); # assign whole array #
|
|
a[1] := -1; # assign individual element #
|
|
[]INT slice = a[3:5]; # copy a slice #
|
|
a[3:5] := (2, 4, -1); # assign a slice #
|
|
|
|
REF []INT rslice = a[3:5]; # create a reference to a slice #
|
|
print((LWB rslice, UPB rslice,newline)); # query the bounds of the slice #
|
|
rslice := (2, 4, -1); # assign to the slice, modifying original array #
|
|
print((slice,newline,rslice,newline,a[3:5],newline));
|
|
|
|
[1:3, 1:3]INT matrix; # create a two dimensional array #
|
|
REF []INT hvector = matrix[2,]; # create a reference to a row #
|
|
REF []INT vvector = matrix[,2]; # create a reference to a column #
|
|
REF [,]INT block = matrix[1:2, 1:2]; # create a reference to an area of the array #
|
|
|
|
FLEX [1:13]CHAR string := "Hello, world!"; # create an array with variable bounds #
|
|
print((LWB string, UPB string,newline)); # query the bounds of the flexible array #
|
|
string := "shorter"; # flexible arrays automatically resize themselves on assignment #
|
|
print((LWB string, UPB string,newline)) # query the new bounds of the flexible array #
|
|
)
|