Data update

Task/String-append/Ada/string-append.ada

@@ -1,9 +0,0 @@
-with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
-with Ada.Text_IO.Unbounded_Io; use Ada.Text_IO.Unbounded_IO;
-
-procedure String_Append is
-   Str : Unbounded_String := To_Unbounded_String("Hello");
-begin
-   Append(Str, ", world!");
-   Put_Line(Str);
-end String_Append;

Task/String-append/Arturo/string-append.arturo

@@ -1,10 +1,10 @@
 print join ["Hello" "World"]
 
-a: new "Hello"
+a: "Hello"
 'a ++ "World"
 print a
 
-b: new "Hello"
+b: "Hello"
 append 'b "World"
 print b
 

Task/String-append/COBOL/string-append.cobol

@@ -1,23 +0,0 @@
-      identification division.
-       program-id. string-append.
-
-       data division.
-       working-storage section.
-       01 some-string.
-          05 elements pic x occurs 0 to 80 times depending on limiter.
-       01 limiter     usage index value 7.
-       01 current     usage index.
-
-       procedure division.
-       append-main.
-
-       move "Hello, " to some-string
-
-      *> extend the limit and move using reference modification
-       set current to length of some-string
-       set limiter up by 5
-       move "world" to some-string(current + 1:)
-       display some-string
-
-       goback.
-       end program string-append.

Task/String-append/Elena/string-append.elena

@@ -1,9 +1,9 @@
 import extensions'text;
 
-public program()
+public Program()
 {
     var s := StringWriter.load("Hello");
     s.append(" World");
 
-    console.writeLine(s).readChar()
+    Console.writeLine(s).readChar()
 }

Task/String-append/Emacs-Lisp/string-append-1.l

@@ -1,3 +0,0 @@
-(defvar str "foo")
-(setq str (concat str "bar"))
-str ;=> "foobar"

Task/String-append/Emacs-Lisp/string-append-2.l

@@ -1,5 +0,0 @@
-(require 'cl-lib)
-
-(defvar str "foo")
-(cl-callf concat str "bar")
-str ;=> "foobar"

Task/String-append/Emacs-Lisp/string-append-3.l

@@ -1,8 +0,0 @@
-(let ((buf (get-buffer-create "*foo*")))
-  (with-current-buffer buf
-    (insert "foo"))
-  (with-current-buffer buf
-    (goto-char (point-max))
-    (insert "bar")
-    (buffer-string)))
-;; => "foobar"

Task/String-append/Euphoria/string-append.ex

@@ -1,7 +0,0 @@
-sequence string = "String"
-
-printf(1,"%s\n",{string})
-
-string &= " is now longer\n"
-
-printf(1,"%s",{string})

Task/String-append/PowerShell/string-append.psh

@@ -1,3 +0,0 @@
-$str = "Hello, "
-$str += "World!"
-$str

Task/String-append/VBScript/string-append.vb

@@ -1,3 +0,0 @@
-s = "Rosetta"
-s = s & " Code"
-WScript.StdOut.Write s