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

9
Task/String-case/Ada/string-case.ada
View file

@ -1,9 +0,0 @@
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;

3
Task/String-case/AutoIt/string-case.autoit
View file

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

30
Task/String-case/COBOL/string-case-1.cobol
View file

@ -1,30 +0,0 @@
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
.

32
Task/String-case/COBOL/string-case-2.cobol
View file

@ -1,32 +0,0 @@
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
.

8
Task/String-case/Elena/string-case.elena
View file

@ -1,10 +1,10 @@
import system'culture;
public program()
public Program()
{
string s1 := "alphaBETA";
console.writeLine(s1.toLower(currentLocale));
console.writeLine(s1.toUpper(currentLocale));
console.readChar()
Console.writeLine(s1.toLower(currentLocale));
Console.writeLine(s1.toUpper(currentLocale));
Console.readChar()
}

12
Task/String-case/Kotlin/string-case.kts
View file

@ -1,9 +1,9 @@
// version 1.0.6
// version 2.3.0
fun main(args: Array<String>) {
fun main() {
val s = "alphaBETA"
println(s.toUpperCase())
println(s.toLowerCase())
println(s.capitalize())
println(s.decapitalize())
println(s.uppercase())
println(s.lowercase())
println(s.replaceFirstChar{ it.uppercase() })
println(s.replaceFirstChar{ it.lowercase() })
}

6
Task/String-case/Maxima/string-case.maxima
View file

@ -1,2 +1,4 @@
supcase('alphaBETA');
sdowncase('alphaBETA');
str: "alphaBETA"$
supcase(str);
sdowncase(str);
sinvertcase(str);

6
Task/String-case/PowerShell/string-case.psh
View file

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

11
Task/String-case/Python/string-case-1.py
View file

@ -1,11 +0,0 @@
s = "alphaBETA"
print s.upper() # => "ALPHABETA"
print s.lower() # => "alphabeta"
print s.swapcase() # => "ALPHAbeta"
print "fOo bAR".capitalize() # => "Foo bar"
print "fOo bAR".title() # => "Foo Bar"
import string
print string.capwords("fOo bAR") # => "Foo Bar"

2
Task/String-case/Python/string-case-2.py
View file

@ -1,2 +0,0 @@
print "foo's bar".title() # => "Foo'S Bar"
print string.capwords("foo's bar") # => "Foo's Bar"

3
Task/String-case/REBOL/string-case.rebol
View file

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

3
Task/String-case/VBScript/string-case.vb
View file

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