Data update

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

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

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

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

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

@@ -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

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

@@ -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;

Task/Generate-lower-case-ASCII-alphabet/AutoIt/generate-lower-case-ascii-alphabet.autoit

@@ -1,7 +0,0 @@
-Func _a2z()
-	Local $a2z = ""
-	For $i = 97 To 122
-		$a2z &= Chr($i)
-	Next
-	Return $a2z
-EndFunc

Task/Generate-lower-case-ASCII-alphabet/COBOL/generate-lower-case-ascii-alphabet.cobol

@@ -1,17 +0,0 @@
-identification division.
-program-id. lower-case-alphabet-program.
-data division.
-working-storage section.
-01  ascii-lower-case.
-    05 lower-case-alphabet pic a(26).
-    05 character-code      pic 999.
-    05 loop-counter        pic 99.
-procedure division.
-control-paragraph.
-    perform add-next-letter-paragraph varying loop-counter from 1 by 1
-    until loop-counter is greater than 26.
-    display lower-case-alphabet upon console.
-    stop run.
-add-next-letter-paragraph.
-    add 97 to loop-counter giving character-code.
-    move function char(character-code) to lower-case-alphabet(loop-counter:1).

Task/Generate-lower-case-ASCII-alphabet/Elena/generate-lower-case-ascii-alphabet.elena

@@ -5,7 +5,7 @@ singleton Alphabet : Enumerable
 {
     Enumerator enumerator() = new Enumerator
     {
-        char current;
+        char? current;
 
         get Value() = current;
 
@@ -36,7 +36,7 @@ singleton Alphabet : Enumerable
     };
 }
 
-public program()
+public Program()
 {
-    console.printLine(Alphabet)
+    Console.printLine(Alphabet)
 }

Task/Generate-lower-case-ASCII-alphabet/PowerShell/generate-lower-case-ascii-alphabet-1.psh

@@ -1,2 +0,0 @@
-$asString = 97..122 | ForEach-Object -Begin {$asArray = @()} -Process {$asArray += [char]$_} -End {$asArray -join('')}
-$asString

Task/Generate-lower-case-ASCII-alphabet/PowerShell/generate-lower-case-ascii-alphabet-2.psh

@@ -1 +0,0 @@
-$asArray

Task/Generate-lower-case-ASCII-alphabet/PowerShell/generate-lower-case-ascii-alphabet-3.psh

@@ -1 +0,0 @@
--join [Char[]] (97..122)

Task/Generate-lower-case-ASCII-alphabet/PowerShell/generate-lower-case-ascii-alphabet-4.psh

@@ -1 +0,0 @@
--join ('a'..'z')

Task/Generate-lower-case-ASCII-alphabet/VBScript/generate-lower-case-ascii-alphabet.vb

@@ -1,9 +0,0 @@
-Function ASCII_Sequence(range)
-	arr = Split(range,"..")
-	For i = Asc(arr(0)) To Asc(arr(1))
-		ASCII_Sequence = ASCII_Sequence & Chr(i) & " "
-	Next
-End Function
-
-WScript.StdOut.Write ASCII_Sequence(WScript.Arguments(0))
-WScript.StdOut.WriteLine