Another update from ingydotnet^djgoku

Task/String-append/Bracmat/string-append.bracmat

@@ -0,0 +1,3 @@
+str="Hello";
+str$(!str " World!"):?str;
+out$!str;

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

@@ -0,0 +1,9 @@
+#import system.
+
+#symbol program =
+[
+    #var s := String new:"Hello".
+    s += " World".
+
+    console writeLine:s.
+].

Task/String-append/Elixir/string-append.elixir

@@ -0,0 +1,4 @@
+iex(60)> s = "Hello"
+"Hello"
+iex(61)> s <> " World!"
+"Hello World!"

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

@@ -0,0 +1,2 @@
+(defun glue (str1 str2)
+  (concat str1 str2) )

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

@@ -0,0 +1,2 @@
+(defun glue (str1 str2)
+  (format "%s%s" str1 str2) )

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

@@ -0,0 +1,3 @@
+(setq str "Hello, ")
+(setq str (glue str "World!") )
+(insert str)

Task/String-append/Forth/string-append-1.fth

@@ -0,0 +1,7 @@
+Strings in Forth are simply named memory locations
+
+create astring  256 allot   \ create a "string"
+
+s" Hello " astring PLACE     \ initialize the string
+
+s" World!" astring +PLACE   \ append with "+place"

Task/String-append/Forth/string-append-2.fth

@@ -0,0 +1,4 @@
+  ok
+s" Hello " astring place  ok
+s" World!" astring +place  ok
+astring count type Hello World! ok

Task/String-append/Fortran/string-append.f

@@ -0,0 +1,10 @@
+program main
+
+ character(len=:),allocatable :: str
+
+ str = 'hello'
+ str = str//' world'
+
+ write(*,*) str
+
+end program main

Task/String-append/NewLISP/string-append.newlisp

@@ -1,3 +1,7 @@
 (setq str "foo")
+
 (push "bar" str -1)
+; or as an alternative introduced in v.10.1
+(extend str "bar")
+
 (println str)

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

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

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

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