Add tasks for all the new languages

Task/Strip-control-codes-and-extended-characters-from-a-string/FreeBASIC/strip-control-codes-and-extended-characters-from-a-string.freebasic

@@ -0,0 +1,78 @@
+' FB 1.05.0 Win64
+
+Function stripControlChars(s As Const String) As String
+  If s = "" Then Return ""
+  Dim count As Integer = 0
+  Dim strip(0 To Len(s) - 1) As Boolean
+  For i As Integer = 0 To Len(s) - 1
+    For j As Integer = 0 To 31
+      If s[i] = j OrElse s[i] = 127 Then
+        count += 1
+        strip(i) = True
+        Exit For
+      End If
+    Next j
+  Next i
+
+  Dim buffer As String = Space(Len(s) - count)
+  count  = 0
+  For i As Integer = 0 To Len(s) - 1
+    If Not Strip(i) Then
+      buffer[count] = s[i]
+      count += 1
+    End If
+  Next
+  Return buffer
+End Function
+
+Function stripExtendedChars(s As Const String) As String
+  If s = "" Then Return ""
+  Dim count As Integer = 0
+  Dim strip(0 To Len(s) - 1) As Boolean
+  For i As Integer = 0 To Len(s) - 1
+    For j As Integer = 128 To 255
+      If s[i] = j Then
+        count += 1
+        strip(i) = True
+        Exit For
+      End If
+    Next j
+  Next i
+
+  Dim buffer As String = Space(Len(s) - count)
+  count  = 0
+  For i As Integer = 0 To Len(s) - 1
+    If Not Strip(i) Then
+      buffer[count] = s[i]
+      count += 1
+    End If
+  Next
+  Return buffer
+End Function
+
+Dim s  As String = !"\v\001The\t quick\255 \vbrown\127\f fox\156"
+Dim s1 As String = stripControlChars(s)
+Dim s2 As String = stripExtendedChars(s)
+Dim s3 As String = stripExtendedChars(s1)
+
+' Under Windows console, code page 850 :
+' "vertical tab" displays as ♂
+' "form feed" displays as ♀
+' Chr(1) displays as ☺
+' Chr(127) displays as ⌂
+' the other control characters do what it says on the tin
+' Chr(156) displays as £
+' Chr(255) displays as space
+
+Print "Before stripping   :" , s
+Print "Ctl chars stripped :" , s1
+Print "Ext chars stripped :" , s2
+Print "Both sets stripped :" , s3
+Print
+Print "Before stripping"   ,  "Length => " ; Len(s)
+Print "Ctl chars stripped" ,  "Length => " ; Len(s1)
+Print "Ext chars stripped" ,  "Length => " ; Len(s2)
+Print "Both sets stripped" ,  "Length => " ; Len(s3)
+Print
+Print "Press any key to quit"
+Sleep

Task/Strip-control-codes-and-extended-characters-from-a-string/Nim/strip-control-codes-and-extended-characters-from-a-string.nim

@@ -0,0 +1,7 @@
+proc stripped(str): string =
+  result = ""
+  for c in str:
+    if ord(c) in 32..126:
+      result.add c
+
+echo stripped "\ba\x00b\n\rc\fd\xc3"

Task/Strip-control-codes-and-extended-characters-from-a-string/Peloton/strip-control-codes-and-extended-characters-from-a-string-1.peloton

@@ -0,0 +1,8 @@
+Create variable with control characters: <@ SAYLETVARLIT>i|This string has control characters
+	-	-	-	-	-	-
+
+in it</@>
+Strip control characters <@ SAYSALVAR>i</@>
+Assign infix <@ LETVARSALVAR>j|i</@> <@ SAYVAR>j</@>
+Assign prepend <@ LETSALVARVAR>k|i</@> <@ SAYVAR>k</@>
+Reflexive assign <@ ACTSALVAR>i</@> <@ SAYVAR>i</@>

Task/Strip-control-codes-and-extended-characters-from-a-string/Peloton/strip-control-codes-and-extended-characters-from-a-string-2.peloton

@@ -0,0 +1,5 @@
+Create variable with high and low ANSI: <@ SAYLETVARLIT>i|This string has both low ansi and high ansi characters - il doit d'être prévenu</@>
+Strip high  ANSI <@ SAYSAHVAR>i</@>
+Assign infix <@ LETVARSAHVAR>j|i</@> <@ SAYVAR>j</@>
+Assign prepend <@ LETSAHVARVAR>k|i</@> <@ SAYVAR>k</@>
+Reflexive assign <@ ACTSAHVAR>i</@> <@ SAYVAR>i</@>

Task/Strip-control-codes-and-extended-characters-from-a-string/Ring/strip-control-codes-and-extended-characters-from-a-string.ring

@@ -0,0 +1,12 @@
+s = char(31) + "abc" + char(13) + "def" + char(11) + "ghi" + char(10)
+see strip(s) + nl
+
+func strip str
+strip = ""
+for i = 1 to len(str)
+    nr = substr(str,i,1)
+    a = ascii(nr)
+    if a > 31 and a < 123 and nr != "'" and nr != """"
+       strip = strip + nr ok
+next
+return strip

Task/Strip-control-codes-and-extended-characters-from-a-string/Sidef/strip-control-codes-and-extended-characters-from-a-string.sidef

@@ -0,0 +1,10 @@
+var str = "\ba\x00b\n\rc\fd\xc3\x7ffoo";
+
+var letters = str.chars»ord»();
+say letters»chr»().join.dump;
+
+var nocontrols = letters.grep{ (_ > 32) && (_ != 127) };
+say nocontrols»chr»().join.dump;
+
+var noextended = nocontrols.grep{ _ < 127 };
+say noextended»chr»().join.dump;

Task/Strip-control-codes-and-extended-characters-from-a-string/jq/strip-control-codes-and-extended-characters-from-a-string-1.jq

@@ -0,0 +1,5 @@
+def strip_control_codes:
+ explode | map(select(. > 31 and . != 127)) | implode;
+
+def strip_extended_characters:
+  explode | map(select(31 < . and . < 127)) | implode;

Task/Strip-control-codes-and-extended-characters-from-a-string/jq/strip-control-codes-and-extended-characters-from-a-string-2.jq

@@ -0,0 +1,4 @@
+def string: "string of ☺☻♥♦⌂, may include control characters such as null(\u0000) and other ilk.\n§►↔◄\nRødgrød med fløde";
+
+"string | strip_control_codes\n => \(string | strip_control_codes)",
+"string | strip_extended_characters\n => \(string | strip_extended_characters)"

Task/Strip-control-codes-and-extended-characters-from-a-string/jq/strip-control-codes-and-extended-characters-from-a-string-3.jq

@@ -0,0 +1,5 @@
+$ jq -n -r -f Strip_control_codes_and_extended_characters.jq
+string | strip_control_codes
+ => string of ☺☻♥♦⌂, may include control characters such as null() and other ilk.§►↔◄Rødgrød med fløde
+string | strip_extended_characters
+ => string of , may include control characters such as null() and other ilk.Rdgrd med flde