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

5
Task/Multi-dimensional-array/Ada/multi-dimensional-array-1.ada
View file

@ -1,5 +0,0 @@
type Grade is range 0..100;
subtype Lower_Case is Character range 'a'..'z';
subtype Natural is Integer range 0..Integer'Last;
subtype Positive is Integer range 1..Integer'Last;
type Deflection is range -180..180;

4
Task/Multi-dimensional-array/Ada/multi-dimensional-array-10.ada
View file

@ -1,4 +0,0 @@
Mat1 : Matrix;
Mat2 : Matrix;
...
Mat1 := Mat2;

4
Task/Multi-dimensional-array/Ada/multi-dimensional-array-11.ada
View file

@ -1,4 +0,0 @@
V1 : Vector := (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
V2 : Vector := (2, 2, 2, 2, 2, 2, 2, 2, 2, 2);
...
V2(3..6) := V1(7..10);

8
Task/Multi-dimensional-array/Ada/multi-dimensional-array-12.ada
View file

@ -1,8 +0,0 @@
function "*" (Left : Vector; Right : Integer) return Vector is
Result : Vector;
begin
for I in Vector'Range loop
Result(I) := Left(I) * Right;
end loop;
return Result;
end "*"

12
Task/Multi-dimensional-array/Ada/multi-dimensional-array-13.ada
View file

@ -1,12 +0,0 @@
type Unconstrained_Vector is array (Positive range <>) of Integer;
U1 : Unconstrained_Vector := (1,2,3,4,5,6,7,8,9,10);
U2 : Unconstrained_Vector := (10,11,12,13);
...
function "*" (Left : Unconstrained_Vector; Right : Integer) return Unconstrained_Vector is
Result : Unconstrained_Vector(Left'Range);
begin
for I in Left'Range loop
Result(I) := Left(I) * Right;
end loop;
return Result;
end "*";

2
Task/Multi-dimensional-array/Ada/multi-dimensional-array-2.ada
View file

@ -1,2 +0,0 @@
type Char_Array is array (0..9) of Character; -- A constrained array of characters
type String is array (Positive range <>) of Character; -- An unconstrained array of characters

1
Task/Multi-dimensional-array/Ada/multi-dimensional-array-3.ada
View file

@ -1 +0,0 @@
subtype Positive is Integer range 1..Integer'Last;

1
Task/Multi-dimensional-array/Ada/multi-dimensional-array-4.ada
View file

@ -1 +0,0 @@
Name : String := "Rosetta Code";

1
Task/Multi-dimensional-array/Ada/multi-dimensional-array-5.ada
View file

@ -1 +0,0 @@
Num_Elements : Natural := Char_Array'Length;

2
Task/Multi-dimensional-array/Ada/multi-dimensional-array-6.ada
View file

@ -1,2 +0,0 @@
type Vector is array (1..10) of Integer;
type Table is array (0..99) of Vector;

3
Task/Multi-dimensional-array/Ada/multi-dimensional-array-7.ada
View file

@ -1,3 +0,0 @@
V : Vector;
...
V(2) := 10;

3
Task/Multi-dimensional-array/Ada/multi-dimensional-array-8.ada
View file

@ -1,3 +0,0 @@
T : Table;
...
T(1)(2) := 10;

4
Task/Multi-dimensional-array/Ada/multi-dimensional-array-9.ada
View file

@ -1,4 +0,0 @@
type Matrix is array (0..99, 1..10) of Integer;
M : Matrix;
...
M(1,2) := 10;

1
Task/Multi-dimensional-array/REXX/multi-dimensional-array-1.rexx
View file

@ -1 +0,0 @@
g = antenna.2.0

4
Task/Multi-dimensional-array/REXX/multi-dimensional-array-2.rexx
View file

@ -1,4 +0,0 @@
a = '"' /*set variable A to a quote character ["]. */
b = '~' /*set variable B to a tilde character [~]. */
h.a.b = '+++' /*set variable H.".~ to three pluses [+++]. */

23
Task/Multi-dimensional-array/REXX/multi-dimensional-array-3.rexx
View file

@ -1,23 +0,0 @@
/*REXX program shows how to assign and/or display values of a multi─dimensional array.*/
/*REXX arrays can start anywhere. */
y.=0 /*set all values of Y array to 0. */
/* [↑] bounds need not be specified. */
#=0 /*the count for the number of SAYs. */
y.4.3.2.0= 3**7 /*set penultimate element to 2187 */
do i=0 for 5
do j=0 for 4
do k=0 for 3
do m=0 for 2; #=#+1 /*bump the SAY counter.*/
/*the 1st SAY──► */ say 'y.'i"."j'.'k"."m '=' y.i.j.k.m
end /*m*/
end /*k*/
end /*j*/
end /*i*/
say
say '# of elements displayed = ' # /*should be 5 * 4 * 3 * 2 or 5! */
exit /*stick a fork in it, we're all done. */
/* [↓] other versions of the first (REXX) SAY instruction. */
say 'y.' || i || . || k || . || m '=' y.i.j.k.m
say 'y.'||i||.||k||.||m '=' y.i.j.k.m
say 'y.'i||.||k||.||m '=' y.i.j.k.m