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

1
Task/Generate-lower-case-ASCII-alphabet/Ada/generate-lower-case-ascii-alphabet-1.ada
View file

@ -1 +0,0 @@
type Lower_Case is new Character range 'a' .. 'z';

2
Task/Generate-lower-case-ASCII-alphabet/Ada/generate-lower-case-ascii-alphabet-2.ada
View file

@ -1,2 +0,0 @@
type Arr_Type is array (Integer range <>) of Lower_Case;
A : Arr_Type (1 .. 26) := "abcdefghijklmnopqrstuvwxyz";

6
Task/Generate-lower-case-ASCII-alphabet/Ada/generate-lower-case-ascii-alphabet-3.ada
View file

@ -1,6 +0,0 @@
B : Arr_Type (1 .. 26);
begin
B(B'First) := 'a';
for I in B'First .. B'Last-1 loop
B(I+1) := Lower_Case'Succ(B(I));
end loop; -- now all the B(I) are different

34
Task/Generate-lower-case-ASCII-alphabet/Ada/generate-lower-case-ascii-alphabet-4.ada
View file

@ -1,34 +0,0 @@
-- Here is the fleshed-out code using the snippets from above
-- Note that I could have enhanced the output by not displaying the last comma
-- December 2024, R. B. E.
with Ada.Text_IO;
procedure Generate_Lower_Case_ASCII_Alphabet is
-- We start with a strong type definition: A character range that can only hold lower-case letters:
type Lower_Case is new Character range 'a' .. 'z';
-- Now we define an array type and initialize the Array A of that type with the 26 letters:
type Arr_Type is array (Integer range <>) of Lower_Case;
A : Arr_Type (1 .. 26) := "abcdefghijklmnopqrstuvwxyz";
-- Strong typing would catch two errors: (1) any upper-case letters or
-- other symbols in the string assigned to A, and (2) too many or too
-- few letters assigned to A. However, a letter might still appear
-- twice (or more) in A, at the cost of one or more other
-- letters. Array B is safe even against such errors:
B : Arr_Type (1 .. 26);
begin
B(B'First) := 'a';
for I in B'First .. B'Last-1 loop
B(I+1) := Lower_Case'Succ(B(I));
end loop; -- now all the B(I) are different
for I in B'First .. B'Last loop
Ada.Text_IO.Put (B(I)'Image & ", ");
end loop;
Ada.Text_IO.New_Line;
end Generate_Lower_Case_ASCII_Alphabet;