aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

32
Task/Arrays/ALGOL-68/arrays.alg
View file

@ -1,20 +1,22 @@
PROC array_test = VOID:
(
[1:20]INT a;
a := others; # assign whole array #
a[1] := -1; # assign individual element #
a[3:5] := (2, 4, -1); # assign a slice #
[1:3]INT slice = a[3:5]; # copy a slice #
[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 slice)); # query the bounds of the slice #
rslice := (2, 4, -1); # assign to the slice, modifying original array #
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 #
[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 []CHAR string := "Hello, world!"; # create an array with variable bounds #
string := "shorter" # flexible arrays automatically resize themselves on assignment #
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 #
)