Add tasks for all the new languages

Task/String-case/ECL/string-case.ecl

@@ -0,0 +1,11 @@
+IMPORT STD; //Imports the Standard Library
+
+STRING MyBaseString := 'alphaBETA';
+
+UpperCased := STD.str.toUpperCase(MyBaseString);
+LowerCased := STD.str.ToLowerCase(MyBaseString);
+TitleCased := STD.str.ToTitleCase(MyBaseString);
+
+OUTPUT (UpperCased);
+OUTPUT (LowerCased);
+OUTPUT (TitleCased);

Task/String-case/EchoLisp/string-case.echolisp

@@ -0,0 +1,10 @@
+(string-downcase "alphaBETA")
+    → "alphabeta"
+(string-upcase "alphaBETA")
+    → "ALPHABETA"
+(string-titlecase "alphaBETA")
+    → "Alphabeta"
+(string-randcase "alphaBETA")
+    → "alphaBEtA"
+(string-randcase "alphaBETA")
+    → "AlPHaBeTA"

Task/String-case/Elm/string-case.elm

@@ -0,0 +1,6 @@
+import String exposing (toLower, toUpper)
+
+s = "alphaBETA"
+
+lower = toLower s
+upper = toUpper s

Task/String-case/FreeBASIC/string-case.freebasic

@@ -0,0 +1,6 @@
+' FB 1.05.0 Win64
+
+Dim s As String = "alphaBETA"
+Print UCase(s)
+Print LCase(s)
+Sleep

Task/String-case/FutureBasic/string-case.futurebasic

@@ -0,0 +1,10 @@
+include "ConsoleWindow"
+
+dim as Str255 a
+
+a = "alphaBETA"
+
+print a
+print ucase$(a)
+fn lcase(a)
+print a

Task/String-case/Lasso/string-case.lasso

@@ -0,0 +1,12 @@
+// Direct string return
+'alphaBETA'->uppercase&
+'alphaBETA'->lowercase&
+
+// Assignment and manipulation of variables
+local(toupper = 'alphaBETA')
+#toupper->uppercase
+#toupper
+
+local(tolower = 'alphaBETA')
+#tolower->lowercase
+#tolower

Task/String-case/Lingo/string-case-1.lingo

@@ -0,0 +1,29 @@
+----------------------------------------
+-- Lower to upper case (ASCII only)
+-- @param {string} str
+-- @return {string}
+----------------------------------------
+on toUpper (str)
+  alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+  len = str.length
+  repeat with i = 1 to len
+    pos = offset(str.char[i], alphabet)
+    if pos > 0 then put alphabet.char[pos] into char i of str
+  end repeat
+  return str
+end
+
+----------------------------------------
+-- Upper to lower case (ASCII only)
+-- @param {string} str
+-- @return {string}
+----------------------------------------
+on toLower (str)
+  alphabet = "abcdefghijklmnopqrstuvwxyz"
+  len = str.length
+  repeat with i = 1 to len
+    pos = offset(str.char[i], alphabet)
+    if pos > 0 then put alphabet.char[pos] into char i of str
+  end repeat
+  return str
+end

Task/String-case/Lingo/string-case-2.lingo

@@ -0,0 +1,5 @@
+put toUpper("alphaBETA")
+-- "ALPHABETA"
+
+put toLower("alphaBETA")
+-- "alphabeta"

Task/String-case/LiveCode/string-case.livecode

@@ -0,0 +1,2 @@
+put upper("alphaBETA") && lower("alphaBETA")
+ALPHABETA alphabeta

Task/String-case/Nim/string-case.nim

@@ -0,0 +1,7 @@
+import strutils
+
+var s: string = "alphaBETA_123"
+echo s," as upper case: ", toUpper(s)
+echo s," as lower case: ", toLower(s)
+echo s," as Capitalized: ", capitalize(s)
+echo s," as normal case: ", normalize(s)  # remove underscores, toLower

Task/String-case/Oforth/string-case.oforth

@@ -0,0 +1,2 @@
+"alphaBETA" toUpper
+"alphaBETA" toLower

Task/String-case/Peloton/string-case-1.peloton

@@ -0,0 +1,5 @@
+<@ ENU$$$LSTPSTLITLIT>UPP|
+[<@ SAYELTLST>...</@>] <@ SAYHLPELTLST>...</@><@ DEFKEYELTLST>__SuperMacro|...</@>
+<@ SAY&&&LIT>alphaBETA</@>
+
+</@>

Task/String-case/Peloton/string-case-2.peloton

@@ -0,0 +1,5 @@
+<# ENUMERATION LAMBDA LIST PEERSET LITERAL LITERAL>UPP|
+[<# SAY ELEMENT LIST>...</#>] <# SAY HELP ELEMENT LIST>...</#><# DEFINE KEYWORD ELEMENT LIST>__SuperMacro|...</#>
+<# SAY SUPERMACRO LITERAL>alphaBETA</#>
+
+</#>

Task/String-case/Phix/string-case.phix

@@ -0,0 +1,3 @@
+constant s = "alphaBETA"
+?upper(s)
+?lower(s)

Task/String-case/Potion/string-case.potion

@@ -0,0 +1,25 @@
+lowercase = (str) :
+   low = ("")
+   str length times (i) :
+      low append(if (65 <= str(i) ord and str(i) ord <= 90) :
+         "abcdefghijklmnopqrstuvwxyz"(str(i) ord - 65)
+      . else :
+         str(i)
+      .)
+   .
+   low join("")
+.
+uppercase = (str) :
+   upp = ("")
+   str length times (i) :
+      upp append(if (97 <= str(i) ord and str(i) ord <= 122) :
+         "ABCDEFGHIJKLMNOPQRSTUVWXYZ"(str(i) ord - 97)
+      . else :
+         str(i)
+      .)
+   .
+   upp join("")
+.
+
+lowercase("alphaBETA") print
+uppercase("alphaBETA") print

Task/String-case/Powerbuilder/string-case.powerbuilder

@@ -0,0 +1,4 @@
+string ls_string
+ls_string = 'alphaBETA'
+ls_string  = Upper(ls_string)
+ls_string  = Lower(ls_string)

Task/String-case/Ring/string-case.ring

@@ -0,0 +1,3 @@
+aString = "WELCOME TO THE ring programming language"
+see lower(aString) + nl
+see upper(aString) + nl

Task/String-case/Sidef/string-case.sidef

@@ -0,0 +1,6 @@
+say "alphaBETA".lc;             #=> alphabeta
+say "alphaBETA".uc;             #=> ALPHABETA
+say "alphaBETA".tc;             #=> AlphaBETA
+say "alpha BETA".wc;            #=> Alpha Beta
+say "alpha BETA".tc;            #=> Alpha BETA
+say "alpha BETA".tclc;          #=> Alpha beta

Task/String-case/Swift/string-case.swift

@@ -0,0 +1,5 @@
+import Foundation
+
+println("alphaBETA".uppercaseString)
+println("alphaBETA".lowercaseString)
+println("foO BAr".capitalizedString)

Task/String-case/Ursa/string-case.ursa

@@ -0,0 +1,2 @@
+out (lower "alphaBETA") endl console
+out (upper "alphaBETA") endl console

Task/String-case/jq/string-case-1.jq

@@ -0,0 +1,7 @@
+# like ruby's downcase - only characters A to Z are affected
+def ascii_downcase:
+  explode | map( if 65 <= . and . <= 90 then . + 32  else . end) | implode;
+
+# like ruby's upcase - only characters a to z are affected
+def ascii_upcase:
+  explode | map( if 97 <= . and . <= 122 then . - 32  else . end) | implode;

Task/String-case/jq/string-case-2.jq

@@ -0,0 +1,5 @@
+"alphaBETA" | ascii_upcase
+#=> "ALPHABETA"
+
+"alphaBETA" | ascii_downcase
+#=> "alphabeta"