all tasks

Task/String-concatenation/0DESCRIPTION

@@ -0,0 +1,3 @@
+{{basic data operation}}Create a string variable equal to any text value. Create another string variable whose value is the original variable concatenated with another string literal.
+
+To illustrate the operation, show the content of the variables.

Task/String-concatenation/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- String manipulation
+note: Basic language learning

Task/String-concatenation/ALGOL-68/string-concatenation.alg

@@ -0,0 +1,4 @@
+STRING s := "hello";
+print ((s + " literal", new line));
+STRING s1 := s + " literal";
+print ((s1, new line))

Task/String-concatenation/AWK/string-concatenation.awk

@@ -0,0 +1,6 @@
+BEGIN {
+   s = "hello"
+   print s " literal"
+   s1 = s " literal"
+   print s1
+}

Task/String-concatenation/ActionScript/string-concatenation.as

@@ -0,0 +1,13 @@
+package
+{
+    public class Str
+    {
+        public static function main():void
+        {
+            var s:String = "hello";
+            trace(s + " literal");
+            var s2:String = s + " literal";
+            trace(s2);
+        }
+    }
+}

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

@@ -0,0 +1,12 @@
+with Ada.Text_IO;  use Ada.Text_IO;
+
+procedure String_Concatenation is
+   S : String := "Hello";
+begin
+   Put_Line (S & " literal");
+   declare
+      S1 : String := S & " literal";
+   begin
+      Put_Line (S1);
+   end;
+end String_Concatenation;

Task/String-concatenation/AutoHotkey/string-concatenation.ahk

@@ -0,0 +1,4 @@
+s := "hello"
+Msgbox, %s%
+s1 := s . "  literal" ;the . is optional
+Msgbox, %s1%

Task/String-concatenation/BASIC/string-concatenation.basic

@@ -0,0 +1,4 @@
+s$ = "hello"
+print s$;" literal" 'or s$ + " literal"
+s2$ = s$ + " literal"
+print s2$

Task/String-concatenation/BBC-BASIC/string-concatenation.bbc

@@ -0,0 +1,4 @@
+      stringvar1$ = "Hello,"
+      stringvar2$ = stringvar1$ + " world!"
+      PRINT "Variable 1 is """ stringvar1$ """"
+      PRINT "Variable 2 is """ stringvar2$ """"

Task/String-concatenation/Batch-File/string-concatenation.bat

@@ -0,0 +1,3 @@
+set string=Hello
+echo %string% World
+set string2=%string% World

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

@@ -0,0 +1,4 @@
+"Hello ":?var1
+& "World":?var2
+& str$(!var1 !var2):?var12
+& put$("var1=" !var1 ", var2=" !var2 ", var12=" !var12 "\n")

Task/String-concatenation/Burlesque/string-concatenation.blq

@@ -0,0 +1,2 @@
+blsq ) "Hello, ""world!"?+
+"Hello, world!"

Task/String-concatenation/C++/string-concatenation.cpp

@@ -0,0 +1,10 @@
+#include <string>
+#include <iostream>
+
+int main() {
+   std::string s = "hello";
+   std::cout << s << " literal" << std::endl;
+   std::string s2 = s + " literal";
+   std::cout << s2 << std::endl;
+   return 0;
+}

Task/String-concatenation/C/string-concatenation.c

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+char *sconcat(const char *s1, const char *s2)
+{
+  char *s0 = malloc(strlen(s1)+strlen(s2)+1);
+  strcpy(s0, s1);
+  strcat(s0, s2);
+  return s0;
+}
+
+int main()
+{
+   const char *s = "hello";
+   char *s2;
+
+   printf("%s literal\n", s);
+   /* or */
+   printf("%s%s\n", s, " literal");
+
+   s2 = sconcat(s, " literal");
+   puts(s2);
+   free(s2);
+}

Task/String-concatenation/Clojure/string-concatenation.clj

@@ -0,0 +1,5 @@
+(def a-str "abcd")
+(println (str a-str "efgh"))
+
+(def a-new-str (str a-str "efgh"))
+(println a-new-str)

Task/String-concatenation/Common-Lisp/string-concatenation-1.lisp

@@ -0,0 +1,5 @@
+(let ((s "hello"))
+    (format t "~a there!~%" s)
+    (let* ((s2 " there!")
+           (s (concatenate 'string s s2)))
+        (format t "~a~%" s)))

Task/String-concatenation/Common-Lisp/string-concatenation-2.lisp

@@ -0,0 +1,4 @@
+(defparameter *s* "hello")
+(print (concatenate 'string *s* " literal"))
+(defparameter *s1* (concatenate 'string *s* " literal"))
+(print *s1*)

Task/String-concatenation/D/string-concatenation.d

@@ -0,0 +1,8 @@
+import std.stdio;
+
+void main() {
+    string s = "hello";
+    writeln(s ~ " world");
+    auto s2 = s ~ " world";
+    writeln(s2);
+}

Task/String-concatenation/DWScript/string-concatenation.dwscript

@@ -0,0 +1,5 @@
+var s1 := 'Hello';
+var s2 := s1 + ' World';
+
+PrintLn(s1);
+PrintLn(s2);

Task/String-concatenation/Delphi/string-concatenation.delphi

@@ -0,0 +1,12 @@
+program Concat;
+
+{$APPTYPE CONSOLE}
+
+var
+  s1, s2: string;
+begin
+  s1 := 'Hello';
+  s2 := s1 + ' literal';
+  WriteLn(s1);
+  WriteLn(s2);
+end.

Task/String-concatenation/Dylan.NET/string-concatenation.dylan.net

@@ -0,0 +1,19 @@
+//to be compiled using dylan.NET v. 11.3.1.3 or later.
+#refstdasm mscorlib.dll
+
+import System
+
+assembly concatex exe
+ver 1.3.0.0
+
+class public auto ansi Module1
+
+   method public static void main()
+        var s as string = "hello"
+        Console::Write(s)
+        Console::WriteLine(" literal")
+        var s2 as string = s + " literal"
+        Console::WriteLine(s2)
+  end method
+
+end class

Task/String-concatenation/Erlang/string-concatenation.erl

@@ -0,0 +1,4 @@
+S = "hello",
+S1 = S ++ " literal",
+io:format ("~s literal~n",[S]),
+io:format ("~s~n",[S1])

Task/String-concatenation/Euphoria/string-concatenation.euphoria

@@ -0,0 +1,7 @@
+sequence s, s1
+s = "hello"
+puts(1, s & " literal")
+puts(1,'\n')
+s1 = s & " literal"
+print (1, s1))
+puts(1,'\n')

Task/String-concatenation/Factor/string-concatenation.factor

@@ -0,0 +1 @@
+"wake up" [ " sheeple" append print ] [ ", you sheep" append ] bi print

Task/String-concatenation/Fantom/string-concatenation.fantom

@@ -0,0 +1,8 @@
+fansh> a := "abc"
+abc
+fansh> b := a + "def"
+abcdef
+fansh> a
+abc
+fansh> b
+abcdef

Task/String-concatenation/Forth/string-concatenation.fth

@@ -0,0 +1,4 @@
+s" hello" pad place
+pad count type
+s"  there!" pad +place    \ +place is called "append" on some Forths
+pad count type

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

@@ -0,0 +1,10 @@
+program StringConcatenation
+
+integer, parameter          :: maxstringlength = 64
+character (maxstringlength) :: s1, s = "hello"
+
+print *,s // " literal"
+s1 = trim(s) // " literal"
+print *,s1
+
+end program

Task/String-concatenation/Gambas/string-concatenation.gambas

@@ -0,0 +1,4 @@
+DIM bestclub AS String
+DIM myconcat AS String
+bestclub = "Liverpool"
+myconcat = bestclub & " Football Club"

Task/String-concatenation/Go/string-concatenation.go

@@ -0,0 +1,21 @@
+package main
+
+import "fmt"
+
+func main() {
+    // text assigned to a string variable
+    s := "hello"
+
+    // output string variable
+    fmt.Println(s)
+
+    // this output requested by original task descrption, although
+    // not really required by current wording of task description.
+    fmt.Println(s + " literal")
+
+    // concatenate variable and literal, assign result to another string variable
+    s2 := s + " literal"
+
+    // output second string variable
+    fmt.Println(s2)
+}

Task/String-concatenation/Golfscript/string-concatenation.golfscript

@@ -0,0 +1,4 @@
+"Greetings ":s;
+s"Earthlings"+puts
+s"Earthlings"+:s1;
+s1 puts

Task/String-concatenation/Groovy/string-concatenation.groovy

@@ -0,0 +1,5 @@
+def s = "Greetings "
+println s + "Earthlings"
+
+def s1 = s + "Earthlings"
+println s1

Task/String-concatenation/Haskell/string-concatenation.hs

@@ -0,0 +1,5 @@
+import System.IO
+s = "hello"
+s1 = s ++ " literal"
+main = do putStrLn (s ++ " literal")
+          putStrLn s1

Task/String-concatenation/HicEst/string-concatenation.hicest

@@ -0,0 +1,5 @@
+CHARACTER s = "hello", sl*100
+
+WRITE() s // " literal"
+sl = s // " literal"
+WRITE() sl

Task/String-concatenation/IDL/string-concatenation.idl

@@ -0,0 +1,4 @@
+s1='Hello'
+print, s1 + ' literal'
+s2=s1 + ' literal'
+print, s2

Task/String-concatenation/Icon/string-concatenation.icon

@@ -0,0 +1,5 @@
+procedure main()
+s1 := "hello"
+write(s2 := s1 || " there.")  # capture the reuslt for
+write(s2)                     # ... the 2nd write
+end

Task/String-concatenation/J/string-concatenation.j

@@ -0,0 +1,5 @@
+   s1 =. 'Some '
+   ]s1, 'text '
+Some text
+   ]s2 =. s1 , 'more text!'
+Some more text!

Task/String-concatenation/Java/string-concatenation.java

@@ -0,0 +1,8 @@
+public class Str{
+   public static void main(String[] args){
+      String s = "hello";
+      System.out.println(s + " literal");
+      String s2 = s + " literal";
+      System.out.println(s2);
+   }
+}

Task/String-concatenation/JavaScript/string-concatenation.js

@@ -0,0 +1,2 @@
+var s = "hello"
+print(s + " there!")

Task/String-concatenation/Lang5/string-concatenation.lang5

@@ -0,0 +1,2 @@
+: concat  2 compress "" join ;
+'hello " literal" concat

Task/String-concatenation/Lisaac/string-concatenation.lisaac

@@ -0,0 +1,17 @@
+Section Header
+
++ name := STRING_CONCATENATION;
+
+Section Public
+
+- main <- (
+  + sc : STRING_CONSTANT;
+  + sv : STRING;
+
+  sc := "Hello";
+  (sc + " literal").println;
+
+  sv := sc + " literal";
+  sv.println;
+
+);

Task/String-concatenation/Logo/string-concatenation.logo

@@ -0,0 +1,2 @@
+make "s "hello
+print word :s "| there!|

Task/String-concatenation/M4/string-concatenation.m4

@@ -0,0 +1,5 @@
+define(`concat',`$1$2')dnl
+define(`A',`any text value')dnl
+concat(`A',` concatenated with string literal')
+define(`B',`concat(`A',` and string literal')')dnl
+B

Task/String-concatenation/MATLAB/string-concatenation.m

@@ -0,0 +1,11 @@
+>> string1 = '1 Fish'
+
+string1 =
+
+1 Fish
+
+>> string2 = [string1 ', 2 Fish, Red Fish, Blue Fish']
+
+string2 =
+
+1 Fish, 2 Fish, Red Fish, Blue Fish

Task/String-concatenation/MAXScript/string-concatenation.maxscript

@@ -0,0 +1,4 @@
+s = "hello"
+print (s + " literal")
+s1 = s + " literal"
+print s1

Task/String-concatenation/MUMPS/string-concatenation.mumps

@@ -0,0 +1,6 @@
+STRCAT
+ SET S="STRING"
+ WRITE !,S
+ SET T=S_" LITERAL"
+ WRITE !,T
+ QUIT

Task/String-concatenation/Mathematica/string-concatenation.math

@@ -0,0 +1,2 @@
+str= "Hello ";
+str<>"Literal"

Task/String-concatenation/Maxima/string-concatenation.maxima

@@ -0,0 +1,4 @@
+s: "the quick brown fox";
+t: "jumps over the lazy dog";
+sconcat(s, " ", t);
+/* "the quick brown fox jumps over the lazy dog" */

Task/String-concatenation/Mercury/string-concatenation.mercury

@@ -0,0 +1,14 @@
+:- module string_concat.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+:- import_module string.
+
+main(!IO) :-
+    S = "hello",
+    S1 = S ++ " world",
+    io.write_string(S, !IO), io.nl(!IO),
+    io.write_string(S1, !IO), io.nl(!IO).

Task/String-concatenation/Metafont/string-concatenation.metafont

@@ -0,0 +1,5 @@
+string a, b;
+a := "String";
+message a & " literal";
+b := a & " literal";
+message b;

Task/String-concatenation/Modula-3/string-concatenation-1.mod3

@@ -0,0 +1,12 @@
+MODULE Concat EXPORTS Main;
+
+IMPORT IO;
+
+VAR string: TEXT := "String";
+    string1: TEXT;
+
+BEGIN
+  IO.Put(string & " literal.\n");
+  string1 := string & " literal.\n";
+  IO.Put(string1);
+END Concat.

Task/String-concatenation/Modula-3/string-concatenation-2.mod3

@@ -0,0 +1 @@
+string1 := Text.Concat(string, " literal.\n");

Task/String-concatenation/Nemerle/string-concatenation.nemerle

@@ -0,0 +1,14 @@
+using System;
+using System.Console;
+using Nemerle.Utility.NString; // contains method Concat()
+
+module Stringcat
+{
+    Main() : void
+    {
+        def text1 = "This string has";
+        def cat1  = Concat( " ", [text, "been concatenated"]);
+        def cat2  = text1 + " also been concatenated";
+        Write($"$cat1\n$cat2\n");
+    }
+}

Task/String-concatenation/NetRexx/string-concatenation.netrexx

@@ -0,0 +1,19 @@
+/* NetRexx */
+
+options replace format comments java crossref savelog symbols
+
+s1 = 'any text value'
+s2 = 'another string literal'
+s3 = s1    s2 -- concatenate variables with blank space (note that only one blank space is added)
+s4 = s1 || s2 -- concatenate variables with abuttal (here, no blank spaces are added)
+s5 = s1    'another string literal' -- concatenate a variable and a literal with blank space
+s6 = s1'another string literal'     -- concatenate a variable and a literal using abuttal
+s7 = s1 || 'another string literal' -- ditto
+
+say 's1:' s1 -- concatenation with blank space is employed here too
+say 's2:' s2
+say 's3:' s3
+say 's4:' s4
+say 's5:' s5
+say 's6:' s6
+say 's7:' s7

Task/String-concatenation/Nimrod/string-concatenation.nimrod

@@ -0,0 +1,4 @@
+var str, str1 = "String"
+echo(str & " literal.")
+str1 = str1 & " literal."
+echo(str1)

Task/String-concatenation/OCaml/string-concatenation.ocaml

@@ -0,0 +1,6 @@
+let s = "hello"
+let s1 = s ^ " literal"
+let () =
+  print_endline (s ^ " literal");
+  (* or Printf.printf "%s literal\n" s; *)
+  print_endline s1

Task/String-concatenation/Objeck/string-concatenation.objeck

@@ -0,0 +1,11 @@
+bundle Default {
+  class Repeat {
+    function : Main(args : String[]) ~ Nil {
+      s := "hello";
+      s->PrintLine();
+      " literal"->PrintLine();
+      s->Append(" literal");
+      s->PrintLine();
+    }
+  }
+}

Task/String-concatenation/Objective-C/string-concatenation.m

@@ -0,0 +1,19 @@
+#import <Foundation/Foundation.h>
+
+int main()
+{
+  NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
+  NSString *s = @"hello";
+  printf("%s%s\n", [s UTF8String], " literal");
+
+  NSString *s2 = [s stringByAppendingString:@" literal"];
+  // or, NSString *s2 = [NSString stringWithFormat:@"%@%@", s, @" literal"];
+  puts([s2 UTF8String]);
+  /* or */
+  NSMutableString *s3 = [NSMutableString stringWithString: s];
+  [s3 appendString: @" literal"];
+  puts([s3 UTF8String]);
+
+  [pool release];
+  return 0;
+}

Task/String-concatenation/Openscad/string-concatenation.scad

@@ -0,0 +1,4 @@
+a="straw";
+b="berry";
+c=str(a,b);    /* Concatenate a and b */
+echo (c);

Task/String-concatenation/Oz/string-concatenation.oz

@@ -0,0 +1,5 @@
+declare
+S = "hello"
+{System.showInfo S#" literal"} %% virtual strings are constructed with "#"
+S1 = {Append S " literal"}
+{System.showInfo S1}

Task/String-concatenation/PARI-GP/string-concatenation.pari

@@ -0,0 +1,5 @@
+s = "Hello ";
+s = Str(s, "world");
+\\ Alternately, this could have been:
+\\ s = concat(s, "world");
+print(s);

Task/String-concatenation/PHP/string-concatenation.php

@@ -0,0 +1,6 @@
+<?php
+$s = "hello";
+echo $s . " literal" . "\n";
+$s1 = $s . " literal";
+echo $s1 . "\n";
+?>

Task/String-concatenation/PL-I/string-concatenation.pli

@@ -0,0 +1,6 @@
+declare (s, t) character (30) varying;
+
+s = 'hello from me';
+display (s || ' to you.' );
+t = s || ' to you all';
+display (t);

Task/String-concatenation/Pascal/string-concatenation.pascal

@@ -0,0 +1,11 @@
+Program StringConcat;
+  Var
+     s, s1   : String;
+
+Begin
+    s := 'hello';
+    writeln(s + ' literal');
+    s1 := concat(s, ' literal');
+    { s1 := s + ' literal'; works too, with FreePascal }
+    writeln(s1);
+End.

Task/String-concatenation/Perl-6/string-concatenation-1.pl6

@@ -0,0 +1,4 @@
+my $s = 'hello';
+say $s ~ ' literal';
+my $s1 = $s ~ ' literal';
+say $s1;

Task/String-concatenation/Perl-6/string-concatenation-2.pl6

@@ -0,0 +1,2 @@
+$s ~= ' literal';
+say $s;

Task/String-concatenation/Perl/string-concatenation-1.pl

@@ -0,0 +1,4 @@
+my $s = 'hello';
+print $s . ' literal', "\n";
+my $s1 = $s . ' literal';
+print $s1, "\n";

Task/String-concatenation/Perl/string-concatenation-2.pl

@@ -0,0 +1,2 @@
+$s .= ' literal';
+print $s, "\n";

Task/String-concatenation/PicoLisp/string-concatenation.l

@@ -0,0 +1,4 @@
+(let Str1 "First text"
+   (prinl Str1 " literal")
+   (let Str2 (pack Str1 " literal")
+      (prinl Str2) ) )

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

@@ -0,0 +1,8 @@
+$s = "Hello"
+Write-Host $s World.
+
+# alternative, using variable expansion in strings
+Write-Host "$s World."
+
+$s2 = $s + " World."
+Write-Host $s2

Task/String-concatenation/PureBasic/string-concatenation.purebasic

@@ -0,0 +1,11 @@
+If OpenConsole()
+
+  s$ = "hello"
+  PrintN( s$ + " literal")
+  s2$ = s$ + " literal"
+  PrintN(s2$)
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf

Task/String-concatenation/Python/string-concatenation-1.py

@@ -0,0 +1,5 @@
+s1 = "hello"
+print s1 + " world"
+
+s2 = s1 + " world"
+print s2

Task/String-concatenation/Python/string-concatenation-2.py

@@ -0,0 +1,5 @@
+s1 = "hello"
+print ", ".join([s1, "world", "mom"])
+
+s2 = ", ".join([s1, "world", "mom"])
+print s2

Task/String-concatenation/R/string-concatenation.r

@@ -0,0 +1,4 @@
+hello <- "hello"
+paste(hello, "literal") # "hello literal"
+hl <- paste(hello, "literal") #saves concatenates string to a new variable
+paste("no", "spaces", "between", "words", sep="") # "nospacesbetweenwords"

Task/String-concatenation/REBOL/string-concatenation.rebol

@@ -0,0 +1,3 @@
+s: "hello"
+print s1: rejoin [s " literal"]
+print s1

Task/String-concatenation/REXX/string-concatenation.rexx

@@ -0,0 +1,9 @@
+s = "hello"
+say s "literal"
+t = s "literal"    /* Whitespace between the two strings causes a space in the output */
+say t
+
+                        /* The above method works without spaces too */
+genus="straw"
+say genus"berry"        /* This outputs strawberry */
+say genus || "berry"    /* Concatenation using a doublepipe does not cause spaces */

Task/String-concatenation/Retro/string-concatenation.retro

@@ -0,0 +1,2 @@
+with strings'
+"hello" "literal" append puts

Task/String-concatenation/Ruby/string-concatenation.rb

@@ -0,0 +1,5 @@
+s = "hello"
+puts s + " literal"
+s1 = s + " literal"
+puts s1
+s1 << " another" # append to s1

Task/String-concatenation/SAS/string-concatenation.sas

@@ -0,0 +1,6 @@
+data _null_;
+   a="Hello,";
+   b="World!";
+   c=a !! " " !! b;
+   put c;
+run;

Task/String-concatenation/SNOBOL4/string-concatenation.sno

@@ -0,0 +1,5 @@
+	greet1 = "Hello, "
+	output = greet1
+	greet2 = greet1 "World!"
+	output = greet2
+end

Task/String-concatenation/Sather/string-concatenation.sa

@@ -0,0 +1,8 @@
+class MAIN is
+  main is
+    s ::= "hello";
+    #OUT + s + " literal\n";
+    s2 ::= s + " literal";
+    #OUT + s2 + "\n";
+  end;
+end;

Task/String-concatenation/Scala/string-concatenation.scala

@@ -0,0 +1,3 @@
+val s = "hello"
+val s2 = s + " world"
+println(s2)

Task/String-concatenation/Scheme/string-concatenation.ss

@@ -0,0 +1,6 @@
+(define s "hello")
+(display (string-append s " literal"))
+(newline)
+(define s1 (string-append s " literal"))
+(display s1)
+(newline)

Task/String-concatenation/Seed7/string-concatenation.seed7

@@ -0,0 +1,11 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var string: s is "hello";
+    var string: s2 is "";
+  begin
+    writeln(s <& " world");
+    s2 := s & " world";
+    writeln(s2);
+  end func;

Task/String-concatenation/Slate/string-concatenation.slate

@@ -0,0 +1,4 @@
+define: #s -> 'hello'.
+inform: s ; ' literal'.
+define: #s1 -> (s ; ' literal').
+inform: s1.

Task/String-concatenation/Smalltalk/string-concatenation.st

@@ -0,0 +1,4 @@
+|s s1| s := 'hello'.
+(s,' literal') printNl.
+s1 := s,' literal'.
+s1 printNl.

Task/String-concatenation/Standard-ML/string-concatenation.ml

@@ -0,0 +1,5 @@
+val s = "hello"
+val s1 = s ^ " literal\n"
+val () =
+  print (s ^ " literal\n");
+  print s1

Task/String-concatenation/TI-89-BASIC/string-concatenation.ti-89

@@ -0,0 +1,3 @@
+"aard" → sv
+Disp sv & "vark"
+sv & "wolf" → sv2

Task/String-concatenation/TUSCRIPT/string-concatenation.tuscript

@@ -0,0 +1,6 @@
+$$ MODE TUSCRIPT
+s = "Hello "
+print s, "literal"
+
+s1 = CONCAT (s,"literal")
+print s1

Task/String-concatenation/Tcl/string-concatenation-1.tcl

@@ -0,0 +1,4 @@
+set s hello
+puts "$s there!"
+append s " there!"
+puts $s

Task/String-concatenation/Tcl/string-concatenation-2.tcl

@@ -0,0 +1,4 @@
+set s "Hello "
+set t "World"
+set u "!"
+puts $s$t$u  ;# There is nothing special here about using puts; just an example

Task/String-concatenation/TorqueScript/string-concatenation.torquescript

@@ -0,0 +1,5 @@
+%string = "Hello";
+echo(%string);
+%other = " world!";
+echo(%other);
+echo(%string @ %other);

Task/String-concatenation/UNIX-Shell/string-concatenation.sh

@@ -0,0 +1,9 @@
+s="hello"
+echo "$s literal"
+s1="$s literal"    # This method only works with a space between the strings
+echo $s1
+
+# To concatenate without the space we need squiggly brackets:
+genus='straw'
+fruit=${genus}berry  # This outputs the word strawberry
+echo $fruit

Task/String-concatenation/UnixPipes/string-concatenation.unixpipes

@@ -0,0 +1,2 @@
+echo "hello"
+ | xargs -n1 -i echo {} literal

Task/String-concatenation/Visual-Basic-.NET/string-concatenation.visual

@@ -0,0 +1,4 @@
+s = "Hello"
+Console.WriteLine(s & " literal")
+s1 = s + " literal"
+Console.WriteLine(s1)

Task/String-concatenation/XPL0/string-concatenation.xpl0

@@ -0,0 +1,23 @@
+func Concat(S1, S2, S3);        \Concatenate strings: S3:= S1 + S2
+char S1, S2, S3;
+int  C, I, J;
+[I:= 0;
+repeat  C:= S1(I);
+        S3(I):= C & $7F;        \remove MSb terminator from first string
+        I:= I+1;
+until   C >= $80;
+J:= 0;
+repeat  C:= S2(J);
+        S3(I+J):= C;
+        J:= J+1;
+until   C >= $80;
+return S3;
+];
+
+code Text=12;
+char A, B, C(80);
+[A:= "Hello";
+ B:= " World!";
+Concat(A, B, C);
+Text(0, C);
+]

Task/String-concatenation/Yorick/string-concatenation.yorick

@@ -0,0 +1,4 @@
+var1 = "Hello";
+var2 = var1 + ", world!";
+write, var1;
+write, var2;

Task/String-concatenation/ZX-Spectrum-Basic/string-concatenation.zx

@@ -0,0 +1,3 @@
+10 LET s$="Hello"
+20 LET s$=s$+" World!"
+30 PRINT s$