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;