Data update

Task/String-case/Ada/string-case.adb

@@ -0,0 +1,9 @@
+with Ada.Characters.Handling, Ada.Text_IO;
+use  Ada.Characters.Handling, Ada.Text_IO;
+
+procedure Upper_Case_String is
+   S : constant String := "alphaBETA";
+begin
+   Put_Line (To_Upper (S));
+   Put_Line (To_Lower (S));
+end Upper_Case_String;

Task/String-case/AutoIt/string-case.au3

@@ -0,0 +1,3 @@
+$sString = "alphaBETA"
+$sUppercase = StringUpper($sString) ;"ALPHABETA"
+$sLowercase = StringLower($sString) ;"alphabeta"

Task/String-case/Ballerina/string-case.ballerina

@@ -0,0 +1,7 @@
+import ballerina/io;
+
+public function main() {
+    string s = "alphaBETA";
+    io:println(s.toUpperAscii());
+    io:println(s.toLowerAscii());
+}

Task/String-case/COBOL/string-case-1.cob

@@ -0,0 +1,30 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. string-case-85.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  example PIC X(9) VALUE "alphaBETA".
+
+       01  result  PIC X(9).
+
+       PROCEDURE DIVISION.
+           DISPLAY "Example: " example
+
+           *> Using the intrinsic functions.
+           DISPLAY "Lower-case: " FUNCTION LOWER-CASE(example)
+
+           DISPLAY "Upper-case: " FUNCTION UPPER-CASE(example)
+
+           *> Using INSPECT
+           MOVE example TO result
+           INSPECT result CONVERTING "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+               TO "abcdefghijklmnopqrstuvwxyz"
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           INSPECT result CONVERTING "abcdefghijklmnopqrstuvwxyz"
+               TO  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+           DISPLAY "Upper-case: " result
+
+           GOBACK
+           .

Task/String-case/COBOL/string-case-2.cob

@@ -0,0 +1,32 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. string-case-extensions.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       78  example VALUE "alphaBETA".
+
+       01  result  PIC X(9).
+
+       PROCEDURE DIVISION.
+           DISPLAY "Example: " example
+
+           *> ACUCOBOL-GT
+           MOVE example TO result
+           CALL "C$TOLOWER" USING result, BY VALUE 9
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           CALL "C$TOUPPER" USING result, BY VALUE 9
+           DISPLAY "Upper-case: " result
+
+           *> Visual COBOL
+           MOVE example TO result
+           CALL "CBL_TOLOWER" USING result, BY VALUE 9
+           DISPLAY "Lower-case: " result
+
+           MOVE example TO result
+           CALL "CBL_TOUPPER" USING result BY VALUE 9
+           DISPLAY "Upper-case: " result
+
+           GOBACK
+           .

Task/String-case/PowerShell/string-case.ps1

@@ -0,0 +1,6 @@
+$string = 'alphaBETA'
+$lower  = $string.ToLower()
+$upper  = $string.ToUpper()
+$title  = (Get-Culture).TextInfo.ToTitleCase($string)
+
+$lower, $upper, $title

Task/String-case/Python/string-case.py

@@ -0,0 +1,20 @@
+import string
+
+EXAMPLE_STRINGS = [
+    "alphaBETA",
+    "ação",
+    "o'hare O'HARE o’hare don't",
+    "Stroßbùrri",
+    "ĥåçýджк",
+    "DŽLjnj",
+]
+
+for s in EXAMPLE_STRINGS:
+    print(f"original        : {s}")
+    print(f"upper           : {s.upper()}")
+    print(f"lower           : {s.lower()}")
+    print(f"capitalize      : {s.capitalize()}")
+    print(f"title           : {s.title()}")
+    print(f"swapcase        : {s.swapcase()}")
+    print(f"casefold        : {s.casefold()}")
+    print(f"string.capwords : {string.capwords(s, sep=None)}\n")

Task/String-case/Rebol/string-case.rebol

@@ -0,0 +1,3 @@
+print ["Original: " original: "alphaBETA"]
+print ["Uppercase:" uppercase original]
+print ["Lowercase:" lowercase original]

Task/String-case/Rye/string-case.rye

@@ -0,0 +1,2 @@
+upper "alphaBETA"
+lower "alphaBETA"

Task/String-case/VBScript/string-case.vbs

@@ -0,0 +1,3 @@
+Dim MyWord
+MyWord = UCase("alphaBETA")   ' Returns "ALPHABETA"
+MyWord = LCase("alphaBETA")   ' Returns "alphabeta"