Array concatenation: Difference between revisions

[[Category:Simple]]

;Task:

 

=={{header|11l}}==

V arr2 = [4, 5, 6]

print(arr1 [+] arr2)</syntaxhighlight>

In order for this to work, you'll either need to use <code>malloc()</code> or know a memory location of "free space" at compile time. This example shall use the latter.

 

 

;concatenate Array1 + Array2

 

=={{header|8th}}==

[1,2,3] [4,5,6] a:+ .

</syntaxhighlight>

=={{header|AArch64 Assembly}}==

{{works with|as|Raspberry Pi 3B version Buster 64 bits}}

/* ARM assembly AARCH64 Raspberry PI 3B */

/* program concAreaString.s */

The concept of arrays does not exist in ABAP, instead internal tables are used. This works in ABAP version 7.40 and above.

 

report z_array_concatenation.

 

=={{header|ACL2}}==

This is for lists, not arrays; ACL2's array support is limited.

 

=={{header|Action!}}==

BYTE i

 

 

=={{header|ActionScript}}==

var array2:Array = new Array(4, 5, 6);

var array3:Array = array1.concat(array2); //[1, 2, 3, 4, 5, 6]</syntaxhighlight>

=={{header|Ada}}==

In [[Ada]] arrays are concatenated using the operation &. It works with any one dimensioned array:

X : T := (1, 2, 3);

Y : T := X & (4, 5, 6); -- Concatenate X and (4, 5, 6)</syntaxhighlight>

 

=={{header|Aime}}==

{

list o;

<!-- {{not tested with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8.8d.fc9.i386]}} -->

Includes operators for ''appending'' and ''prefixing'' an array to an existing flexible array:

MODE ARGLIST = FLEX[0]ARGTYPE;

 

=={{header|ALGOL W}}==

Algol W does not allow procedures to return arrays and has no mechanism for procedures to find the bounds of their parameters, so the caller must supply an array to concatenate into and the bounds of the arrays.

integer array a ( 1 :: 5 );

integer array b ( 2 :: 4 );

 

=={{header|Amazing Hopper}}==

#include <hbasic.h>

Begin

 

=={{header|AntLang}}==

b: <"Hello"; 42>

c: a,b</syntaxhighlight>

 

=={{header|Apex}}==

List<String> listB = new List<String> { 'banana' };

listA.addAll(listB);

 

=={{header|APL}}==

1 2 3 , 4 5 6

1 2 3 4 5 6

 

=={{header|AppleScript}}==

set listA to {1, 2, 3}

set listB to {4, 5, 6}

{{trans|JavaScript}}

 

 

concat([["alpha", "beta", "gamma"], ¬

=={{header|ARM Assembly}}==

{{works with|as|Raspberry Pi}}

/* ARM assembly Raspberry PI */

/* program concAreaString.s */

 

=={{header|Arturo}}==

arr2: ["four" "five" "six"]

The following may seem frightening. However, it probably compiles down to two calls to __builtin_memcpy. All the complexity is to make sure those calls are done ''correctly''.

 

 

(* In a way, the task is misleading: in a language such as ATS, one

=== True Arrays ===

{{works with|AutoHotkey_L}}

List2 := [4, 5, 6]

cList := Arr_concatenate(List1, List2)

=== Legacy versions ===

[[AutoHotkey_Basic]] does not have real Arrays, but the user can implement them quite easily. For example:

List2 = 4,5,6

 

 

_ArrayConcatenate($avArray, $avArray2)

Func _ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource, $iStart = 0)

 

=={{header|Avail}}==

 

=={{header|AWK}}==

BEGIN {

split("cul-de-sac",a,"-")

 

=={{header|Babel}}==

 

{{Out}}

 

=={{header|bash}}==

y=(5 6)

sum=( "${x[@]}" "${y[@]}" )

=={{header|BASIC}}==

==={{header|Applesoft BASIC}}===

20 DIM A(X - 1),B(Y - 1),C(X + Y - 1)

30 FOR I = 1 TO X:A(I - 1) = I: NEXT

60 FOR I = 1 TO Y:C(X + I - 1) = B(I - 1): NEXT

70 FOR I = 1 TO X + Y: PRINT MID$ (" ",1,I > 1)C(I - 1);: NEXT</syntaxhighlight>

==={{header|BaCon}}===

DECLARE b[] = { 6, 7, 8, 9, 10 }

 

==={{header|BBC BASIC}}===

{{works with|BBC BASIC for Windows}}

a() = 1, 2, 3, 4

b() = 5, 6, 7, 8, 9

==={{header|Commodore BASIC}}===

(Based on ZX Spectrum BASIC version)

20 DIM A(X) : DIM B(Y) : DIM C(X+Y)

30 FOR I=1 TO X

160 : PRINT C(I);

170 NEXT</syntaxhighlight>

 

=={{header|BASIC256}}==

global c

 

<pre>1, 2, 3, 4, 5, 6, 7, 8, 9, 10</pre>

 

 

=={{header|BQN}}==

 

=={{header|Bracmat}}==

=={{header|Burlesque}}==

 

blsq ) {1 2 3}{4 5 6}_+

{1 2 3 4 5 6}

=={{header|C}}==

A way to concatenate two C arrays when you know their size (and usually so it is)

#include <stdio.h>

#include <string.h>

 

=={{header|C sharp|C#}}==

 

namespace RosettaCode

 

{{works with|C sharp|C#|3}}

 

class Program

 

=={{header|C++}}==

#include <iostream>

 

Similar to above but using initialization schematics.

 

#include <iostream>

 

This is another solution with function level templates and pointers.

 

 

using namespace std;

 

=={{header|Ceylon}}==

value a = Array {1, 2, 3};

value b = Array {4, 5, 6};

 

=={{header|Clojure}}==

The inputs can be any collection, including Java arrays, and returns a lazy sequence of the elements.

 

A vector is the closest Clojure thing to an array. If a vector is wanted, then use

 

=={{header|COBOL}}==

 

 

 

 

 

 

{{out}}

6, 12, 18, 3, 6, 9, 12

</pre>

 

=={{header|CoffeeScript}}==

# like in JavaScript

a = [1, 2, 3]

=={{header|Common Lisp}}==

<code>[http://www.lispworks.com/documentation/HyperSpec/Body/f_concat.htm concatenate]</code> is a general function for concatenating any type of sequence. It takes the type of sequence to produce, followed by any number of sequences of any type.

=> #(0 1 2 3 4 5 6 7)</syntaxhighlight>

===Alternate solution===

I use [https://franz.com/downloads/clp/survey Allegro CL 10.1]

 

(setf arr1 (make-array '(3) :initial-contents '(1 2 3)))

(setf arr2 (make-array '(3) :initial-contents '(4 5 6)))

=={{header|Component Pascal}}==

BlackBox Component Builder

MODULE ArrayConcat;

IMPORT StdLog;

 

=={{header|Crystal}}==

arr2 = ["foo", "bar", "baz"]

arr1 + arr2 #=> [1, 2, 3, "foo", "bar", "baz"]</syntaxhighlight>

 

=={{header|D}}==

void main() {

=={{header|Delphi}}==

2022/07/13

// This example works on stuff as old as Delphi 5 (maybe older)

// Modern Delphi / Object Pascal has both

It has running commentary about memory management that isn’t exactly correct.<br>

Delphi handles dynamic array memory very well.

TReturnArray = array of integer; //you need to define a type to be able to return it

 

 

=={{header|Diego}}==

 

add_ary(a)_values(1,2,3);

=={{header|Dyalect}}==

 

var ys = [4,5,6]

var alls = Array.Concat(xs, ys)

=={{header|E}}==

 

# value: [1, 2, 3, 4]</syntaxhighlight>

 

=={{header|EasyLang}}==

 

b[] = [ 4 5 6 ]

c[] = a[]

.

print c[]</syntaxhighlight>

=={{header|EchoLisp}}==

The native operators are '''append''' for lists, and '''vector-append''' for vectors (1-dim arrays).

;;;; VECTORS

(vector-append (make-vector 6 42) (make-vector 4 666))

=={{header|ECL}}==

 

A := [1, 2, 3, 4];

B := [5, 6, 7, 8];

 

C := A + B;</syntaxhighlight>

 

=={{header|Efene}}==

using the ++ operator and the lists.append function

 

@public

run = fn () {

=={{header|EGL}}==

{{works with|EDT}}

program ArrayConcatenation

function main()

 

=={{header|Ela}}==

ys = [4,5,6]

xs ++ ys</syntaxhighlight>

=={{header|Elena}}==

ELENA 5.0 :

 

public program()

 

=={{header|Elixir}}==

[1, 2, 3, 4, 5, 6]

iex(2)> Enum.concat([[1, [2], 3], [4], [5, 6]])

 

=={{header|Elm}}==

import Html.App exposing (beginnerProgram)

import Array exposing (Array, append, initialize)

The ''vconcat'' function returns a new array containing all the elements of it's arguments.

 

=> [1 2 3 4 5 6 7 8 9]</syntaxhighlight>

 

=={{header|Erlang}}==

 

On the shell,

1> [1, 2, 3] ++ [4, 5, 6].

[1,2,3,4,5,6]

 

=={{header|ERRE}}==

PROGRAM ARRAY_CONCAT

 

 

=={{header|Euphoria}}==

s1 = {1,2,3}

s2 = {4,5,6}

=={{header|F Sharp|F#}}==

Array concatenation.

let b = [|4; 5; 6;|]

let c = Array.append a b</syntaxhighlight>

List concatenation (@ and List.append are equivalent).

let y = [4; 5; 6]

let z1 = x @ y

 

=={{header|Factor}}==

 

'''Example''':

( scratchpad ) { 1 2 } { 3 4 } append .

{ 1 2 3 4 }</syntaxhighlight>

In fansh:

 

> a := [1,2,3]

> b := [4,5,6]

=={{header|FBSL}}==

Array concatenation:

 

DIM aint[] ={1, 2, 3}, astr[] ={"one", "two", "three"}, asng[] ={!1, !2, !3}

 

=={{header|Forth}}==

2dup + >r swap move r> ;

: cat ( a2 u2 a1 u1 -- a3 u1+u2 )

=={{header|Fortran}}==

{{works with|Fortran|90 and later}}

implicit none

 

=={{header|Free Pascal}}==

Since FPC (Free Pascal compiler) version 3.2.0., the dynamic array concatenation operator <code>+</code> is available, provided <code>{$modeSwitch arrayOperators+}</code> (which is enabled by default in <code>{$mode Delphi}</code>).

 

=={{header|FreeBASIC}}==

' FB 1.05.0 Win64

 

 

=={{header|Frink}}==

a = [1,2]

b = [3,4]

 

=={{header|FunL}}==

arr2 = array( [4, 5, 6] )

arr3 = array( [7, 8, 9] )

Array concatenation is done with the built-in function <code>concat</code>, which can take any number of arguments:

 

concat as bs cd

</syntaxhighlight>

=={{header|FutureBasic}}==

 

CFArrayRef array = @[@"Alpha",@"Bravo",@"Charlie"]

print array

=={{header|Gambas}}==

'''[https://gambas-playground.proko.eu/?gist=314bea6fba7f177a1cfaec8a7a8b5ccb Click this link to run this code]'''

Dim sString1 As String[] = ["The", "quick", "brown", "fox"]

Dim sString2 As String[] = ["jumped", "over", "the", "lazy", "dog"]

 

=={{header|GAP}}==

Concatenation([1, 2, 3], [4, 5, 6], [7, 8, 9]);

# [ 1, 2, 3, 4, 5, 6, 7, 8, 9 ]

 

=={{header|Genie}}==

/*

Array concatenation, in Genie

=={{header|GLSL}}==

This macro concatenates two arrays to form a new array. The first parameter is the type of the array:

#define array_concat(T,a1,a2,returned) \

T[a1.length()+a2.length()] returned; \

</syntaxhighlight>

The macro can be used like this:

array_concat(float,float[](1.,2.,3.),float[](4.,5.,6.),returned);

int i = returned.length();

 

=={{header|Go}}==

 

import "fmt"

</pre>

Array concatenation needs can vary. Here is another set of examples that illustrate different techniques.

 

import (

=={{header|Gosu}}==

 

var listA = { 1, 2, 3 }

var listB = { 4, 5, 6 }

=={{header|Groovy}}==

Solution:

 

Test:

 

{{out}}

=={{header|Haskell}}==

A list is in Haskell one of the most common composite data types (constructed from other types). In the documentation we read for the append operation ++:

Append two lists, i.e.:<pre>

[x1, ..., xm] ++ [y1, ..., yn] == [x1, ..., xm, y1, ..., yn]

 

This operator could be defined from the scratch using explicit recursion:

[] ++ x = x

(h:t) ++ y = h : (t ++ y)

</syntaxhighlight>

or folding

x ++ y = foldr (:) y x

</syntaxhighlight>

 

=={{header|HicEst}}==

 

c = a

 

=={{header|Hy}}==

=> a

[1, 2, 3]

 

=={{header|i}}==

a $= [1, 2, 3]

b $= [4, 5, 6]

=={{header|Icon}} and {{header|Unicon}}==

Both languages have list concatenation built in. Lists are fully dynamic arrays which can be truncated or extended at either end.

procedure main()

L1 := [1, 2, 3, 4]

 

Array concatenation can mean different things, depending on the number of dimensions of the arguments and the result. In the simplest case, with 1-dimensional arrays to begin with, there are two obvious ways to concatenate them. If my arrays are these:

> a = [1,2,3]

> b = [4,5,6]

</syntaxhighlight>

Then they can be concatenated "at the ends":

> help,[a,b]

<Expression> INT = Array[6]

</syntaxhighlight>

or "at the sides":

> help,[[a],[b]]

<Expression> INT = Array[3, 2]

</syntaxhighlight>

Note that this requires that the arrays have the same size at the side at which they are concatenated:

> b = transpose(b)

> help,b

 

=={{header|Inform 7}}==

let B be {4, 5, 6};

add B to A;</syntaxhighlight>

 

=={{header|Ioke}}==

[1,2,3] + [3,2,1]

+> [1, 2, 3, 3, 2, 1]</syntaxhighlight>

 

'''Example''':

array2 =: 4 5 6

array1 , array2

The verb <code>,</code> concatenates by treating the argument array with the largest number of dimensions as a list. Other primary verbs concatenate along other axes.

 

aaa

bbb

2 3 3</syntaxhighlight>

 

 

 

 

=={{header|JavaScript}}==

The <code>Array.concat()</code> method returns a new array comprised of this array joined with other array(s) and/or value(s).

b = [4,5,6],

c = a.concat(b); //=> [1,2,3,4,5,6]</syntaxhighlight>

See, for a function with an analogous type signature, '''concat''' in the Haskell Prelude.

 

'use strict';

 

 

<pre>["alpha", "beta", "gamma", "delta", "epsilon", "zeta", "eta", "theta", "iota"]</pre>

 

=={{header|jq}}==

To concatenate the component arrays of an array, A, the <tt>add</tt> filter can be used: <tt>A|add</tt>

 

 

[range(1;3), 3, null] # => [1,2,3,null]

 

=={{header|Julia}}==

b = [4,5,6]

ab = [a;b]

 

=={{header|K}}==

a: 1 2 3

b: 4 5 6

Concatenations on larger dimensions also use ",", often combined with other operations.

 

ab:3 3#"abcdefghi"

("abc"

 

=={{header|Klingphix}}==

 

( 1.0 "Hello" 3 2 / 4 2.1 power ) ( 5 6 7 8 ) chain print

 

=={{header|Klong}}==

[1 2 3],[4 5 6] :" join "

[1 2 3 4 5 6]

 

=={{header|Kotlin}}==

}</syntaxhighlight>

 

 

=={{header|Lambdatalk}}==

{def A {A.new 1 2 3 4 5 6}} -> [1,2,3,4,5,6]

{def B {A.new 7 8 9}} -> [7,8,9]

{A.concat {A} {B}} -> [1,2,3,4,5,6,7,8,9]

</syntaxhighlight>

 

=={{header|Lang5}}==

 

=={{header|langur}}==

val .b = [7, 8, 9]

val .c = .a ~ .b

 

=={{header|Lasso}}==

local(arr1 = array(1, 2, 3))

local(arr2 = array(4, 5, 6))

arr3 = array(4, 5, 6)

arr3 = array(1, 2, 3, 4, 5, 6)</syntaxhighlight>

 

=={{header|LFE}}==

> (++ '(1 2 3) '(4 5 6))

(1 2 3 4 5 6)

 

=={{header|Liberty BASIC}}==

y=20

dim array1(x)

LIL uses lists instead of arrays. The builtin '''append''' command could be used as '''append a $b'''. That would add the entire list in variable '''b''' as one item to list '''a'''. Below '''quote''' is used to flatten the lists into a single new list of all items.

 

Array concatenation in LIL

##

 

=={{header|Limbo}}==

 

include "sys.m";

 

=={{header|Lingo}}==

b = [3,4,5]

 

 

=={{header|Little}}==

int a[] = {0, 1, 2, 3, 4};

int b[] = {5, 6, 7, 8, 9};

=={{header|Logo}}==

COMBINE is used to combine lists or words. SENTENCE is used to combine lists and words into a single list.

to combine-arrays :a1 :a2

output listtoarray sentence arraytolist :a1 arraytolist :a2

 

=={{header|Lua}}==

b = {4, 5, 6}

 

 

=={{header|M2000 Interpreter}}==

a=(1,2,3,4,5)

b=Cons(a, (6,7,8),a)

Adding 2 dimension arrays

 

Dim Base 0, A(2,2)=1, B(1,2)=6

A()=Cons(A(), B(), A(), B())

1 1

1 1

6 6

</pre >

=={{header|Maple}}==

There is a built-in procedure for concatenating arrays (and similar objects such as matrices or vectors). Arrays can be concatenated along any given dimension, which is specified as the first argument.

> A := Array( [ 1, 2, 3 ] );

A := [1, 2, 3]

</syntaxhighlight>

Of course, the order of the arguments is important.

> ArrayTools:-Concatenate( 1, A, M );

[1 2 3]

</syntaxhighlight>

Lists, in Maple, might be considered to be a kind of "array" (in the sense that they look like arrays in memory), though they are actually immutable objects. However, they can be concatenated as follows.

> L1 := [ 1, 2, 3 ];

L1 := [1, 2, 3]

augment concatenates arrays column-wise. The two (or more) arrays must have the same number of rows, and the resulting array column count is equal to the total number of columns in the augmented arrays.

 

create a pair of arbitrary array:

a:=matrix(2,2,max) b:=a+3

 

=={{header|Mathematica}} / {{header|Wolfram Language}}==

 

-> {1, 2, 3, 4, 5, 6}</syntaxhighlight>

=={{header|MATLAB}} / {{header|Octave}}==

Two arrays are concatenated by placing the two arrays between a pair of square brackets. A space between the two array names will concatenate them horizontally, and a semi-colon between array names will concatenate vertically.

>> b = [4 5 6];

>> c = [a b]

 

For concatenation along higher dimensions, use cat():

>> b = randn([3 4 7]);

>> c = cat(3,a,b);

 

=={{header|Maxima}}==

v: [5, 6, 7, 8, 9, 10]$

append(u, v);

=={{header|Mercury}}==

 

 

It ''could'' be "as simple as array1 + array2", but the 'array' module names the operation 'append' rather than '+'. It's tempting to just say that Mercury supports ad-hoc polymorphism - it can infer that a bare '+' refers to 'float.+' or 'int.+' (or that the 'append' above is array.append, rather than list.append), by the types involved - but it also handles other ambiguities in the same way. For instance, Mercury (like Prolog and Erlang) treats the arity of a function as part of its name, where ''a(1, 2)'' and ''a(1)'' involve the distinct functions a/2 and a/1. But Mercury also (unlike Prolog and Erlang) supports [[currying]], where ''a(1)'' is a function that accepts a/2's second argument. So, is ''[a(X), a(Y), a(Z)]'' a list of whatever type a/1 evaluates to, or is it a list of curried a/2?

=={{header|min}}==

{{works with|min|0.19.3}}

{{out}}

<pre>

 

=={{header|MiniScript}}==

arrOne = [1, 2, 3]

arrTwo = [4, 5, 6]

=={{header|Nanoquery}}==

Assuming a and b are array or list objects, they may concatenated using the '+' operator.

The '*' operator may also be used to create a specific number of copies of a list or array.

<pre>% a = list()

 

=={{header|Neko}}==

Array concatenation, in Neko

*/

 

=={{header|Nemerle}}==

using Nemerle.Collections;

 

=={{header|NetRexx}}==

NetRexx arrays are identical to [[Java|Java's]] so all the techniques described in the [[#Java|Java]] section apply to NetRexx too. This example uses the <tt>Collection</tt> classes to merge two arrays.

options replace format comments java crossref nobinary

 

 

=={{header|NewLISP}}==

; url: http://rosettacode.org/wiki/Array_concatenation

; author: oofoe 2012-01-28

Examples tested to work with Q'Nial7

 

+-+-+-+

|1|2|3|

Table of lists:

 

 

+-------+-------+

Simple concatenation of two arrays/lists:

 

+-+-+-+-+-+-+

|1|2|3|4|5|6|

Convert list of lists to table:

 

+-+-+-+

|1|2|3|

 

Interchange levels of a list of lists:

+-----+-----+-----+

|+-+-+|+-+-+|+-+-+|

=={{header|Nim}}==

Dynamic sized Sequences can simply be concatenated:

x = @[1,2,3,4,5,6]

y = @[7,8,9,10,11]

 

Static sized Arrays:

a = [1,2,3,4,5,6]

b = [7,8,9,10,11]

c[0..5] = a

c[6..10] = b</syntaxhighlight>

 

=={{header|Oberon-2}}==

MODULE ArrayConcat;

IMPORT

 

=={{header|Objeck}}==

bundle Default {

class Arithmetic {

=={{header|Objective-C}}==

with immutable arrays:

NSArray *arr2 = @[@4, @5, @6];

NSArray *arr3 = [arr1 arrayByAddingObjectsFromArray:arr2];</syntaxhighlight>

 

or adding onto a mutable array:

NSArray *arr2 = @[@4, @5, @6];

NSMutableArray *arr3 = [NSMutableArray arrayWithArray:arr1];

=={{header|OCaml}}==

It is more natural in OCaml to use lists instead of arrays:

val list1 : int list = [1; 2; 3]

# let list2 = [4; 5; 6];;

 

If you want to use arrays:

val array1 : int array = [|1; 2; 3|]

# let array2 = [|4; 5; 6|];;

# let array1and2 = Array.append array1 array2;;

val array1and2 : int array = [|1; 2; 3; 4; 5; 6|]</syntaxhighlight>

 

=={{header|Oforth}}==

 

 

[1, 2, 3 ] [ 4, 5, 6, 7 ] + </syntaxhighlight>

=={{header|Onyx}}==

 

# them, concatenates them, and pushes the result back

# on the stack. This works with arrays of integers,

 

=={{header|ooRexx}}==

say "Array a has " a~items "items"

b = .array~of(4,5,6)

=={{header|Order}}==

Order supports two main aggregate types: tuples and sequences (similar to lists in other languages). Most "interesting" operations are limited to sequences, but both support an append operation, and each can be converted to the other.

 

ORDER_PP( 8tuple_append(8tuple(1, 2, 3), 8tuple(4, 5, 6), 8pair(7, 8)) )

 

=={{header|OxygenBasic}}==

'CREATE DYNAMIC ARRAY SPACES USING STRINGS

 

=={{header|Oz}}==

List are concatenated with <code>List.append</code> (shortcut: <code>Append</code>). Tuples are concatened with <code>Tuple.append</code>. Arrays do exist in Oz, but are rarely used.

{Append [a b] [c d]} = [a b c d]

 

 

=={{header|PARI/GP}}==

 

=={{header|Pascal}}==

''See [[#Delphi|Delphi]] and [[#Free Pascal|Free Pascal]]''

 

=={{header|Perl}}==

In Perl, arrays placed into list context are flattened:

my @arr2 = (4, 5, 6);

my @arr3 = (@arr1, @arr2);</syntaxhighlight>

 

The <code>[http://perldoc.perl.org/functions/push.html push]</code> function appends elements onto an existing array:

my @arr2 = (4, 5, 6);

push @arr1, @arr2;

=={{header|Phix}}==

{{libheader|Phix/basics}}

<span style="color: #004080;">sequence</span> <span style="color: #000000;">s1</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{<span style="color: #000000;">1<span style="color: #0000FF;">,<span style="color: #000000;">2<span style="color: #0000FF;">,<span style="color: #000000;">3<span style="color: #0000FF;">}<span style="color: #0000FF;">,</span> <span style="color: #000000;">s2</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{<span style="color: #000000;">4<span style="color: #0000FF;">,<span style="color: #000000;">5<span style="color: #0000FF;">,<span style="color: #000000;">6<span style="color: #0000FF;">}</span>

<span style="color: #0000FF;">?</span> <span style="color: #000000;">s1</span> <span style="color: #0000FF;">&</span> <span style="color: #000000;">s2

 

=={{header|Phixmonti}}==

With syntactic sugar

( 1.0 "Hello" 3 2 / 4 2.1 power ) ( 5 6 7 8 ) chain print</syntaxhighlight>

 

=={{header|PHP}}==

 

$arr2 = array(4, 5, 6);

$arr3 = array_merge($arr1, $arr2);</syntaxhighlight>

and back again with to_array/1.

 

L1 = {1,2,3,4,5}, % define an array with {}

L2 = {6,7,8,9},

 

There are destructive concatenations:

-> (a b c)

: (conc A B) # Concatenate lists in 'A' and 'B'

-> (1 2 3 a b c) # Side effect: List in 'A' is modified!</syntaxhighlight>

and non-destructive concatenations:

-> (a b c)

: (append A B) # Append lists in 'A' and 'B'

 

=={{header|Pike}}==

array arr1 = ({1, 2, 3});

array arr2 = ({4, 5, 6});

Trivial example requires no computational statement.

Note that the arrays are not in static storage:

declare x(12) fixed;

declare b(5) fixed defined x;

A more general example using dynamic bounds.

Again, no computation statement is required.

declare x(m+n) fixed;

declare b(m) fixed defined x;

are used in the declarations, the bounds can be dynamic.

Matrix B is extended by placing matrix C on its diagonal:

declare a(5,6) fixed;

declare b(3,4) fixed defined a(1sub, 2sub);

</syntaxhighlight>

{{out}}

Please type elements for a 3 x 4 matrix:

 

0 0 0 0 15 16

 

</syntaxhighlight>

 

=={{header|Pony}}==

actor Main

new create(env:Env)=>

=={{header|PostScript}}==

{{libheader|initlib}}

[1 2 3 4] [5 6 7 8] concat

</syntaxhighlight>

 

=={{header|PowerShell}}==

$b = 4,5,6

 

 

=={{header|Processing}}==

int[] a = {1, 2, 3}, b = {4, 5, 6};

 

 

=={{header|Prolog}}==

?- append([1,2,3],[4,5,6],R).

R = [1, 2, 3, 4, 5, 6].

 

=={{header|PureBasic}}==

Protected i

Print(msg + " [")

The <code>[http://docs.python.org/library/stdtypes.html#sequence-types-str-unicode-list-tuple-buffer-xrange +]</code> operator concatenates two lists and returns a new list.

The <code>[http://docs.python.org/library/stdtypes.html#mutable-sequence-types list.extend]</code> method appends elements of another list to the receiver.

arr2 = [4, 5, 6]

arr3 = [7, 8, 9]

 

Note: list.extend is normally accomplished using the += operator like this:

arr6 = [7, 8, 9]

arr6 += arr5

 

=={{header|Q}}==

list2:4 5 6

list1,list2</syntaxhighlight>

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

ta = UBOUND(a)

tb = UBOUND(b)

=={{header|QB64}}==

 

 

Dim As Integer First, Second

=={{header|R}}==

 

a1 <- c(1, 2, 3)

a2 <- c(3, 4, 5)

 

=={{header|Racket}}==

(vector-append #(1 2 3 4) #(5 6 7) #(8 9 10))

</syntaxhighlight>

(formerly Perl 6)

{{works with|Rakudo|2018.06}}

my @array2 = 4, 5, 6;

 

 

=={{header|RapidQ}}==

DEFINT A(1 to 4) = {1, 2, 3, 4}

DEFINT B(1 to 4) = {10, 20, 30, 40}

 

=={{header|Rapira}}==

arr2 := <* 4, 5, 6 *>

output: arr1 + arr2</syntaxhighlight>

 

=={{header|REBOL}}==

a1: [1 2 3]

a2: [4 5 6]

 

=={{header|Red}}==

>> arr2: ["d" "e" "f"]

>> append arr1 arr2

 

=={{header|ReScript}}==

 

=={{header|Retro}}==

 

=={{header|REXX}}==

 

Consider:

a.2 = 22.7

a.7 = -12</syntaxhighlight>

<br>assuming that the stemmed variables are sequential.

<br><br>'''example:'''

fact.1= 1

fact.2= 2

fact.8=40320</syntaxhighlight>

To concat two "arrays" in REXX, the following assumes that the stemmed variables are in order, with no gaps, and none have a "null" value.

 

p.= /*(below) a short list of primes.*/

 

=={{header|Ring}}==

arr1 = [1, 2, 3]

arr2 = [4, 5, 6]

In RLaB the matrices can be appended (column-wise) or stacked (row-wise).

Consider few examples:

>> x = [1, 2, 3]

>> y = [4, 5, 6]

>>

</syntaxhighlight>

 

=={{header|Ruby}}==

The <code>[http://www.ruby-doc.org/core/classes/Array.html#M002209 Array#+]</code> method concatenates two arrays and returns a new array. The <code>[http://www.ruby-doc.org/core/classes/Array.html#M002166 Array#concat]</code> method appends elements of another array to the receiver.

arr2 = [4, 5, 6]

arr3 = [7, 8, 9]

 

Or use flatten(1):

# concat multiple arrays:

[arr1,arr2,arr3].flatten(1)

 

=={{header|Rust}}==

let a_vec = vec![1, 2, 3, 4, 5];

let b_vec = vec![6; 5];

Or, with iterators:

 

x.iter().chain(y).cloned().collect()

}

 

=={{header|S-lang}}==

variable b = [4, 5, 6], c;</syntaxhighlight>

 

But because arrays automatically 'flatten' when defined, concatenation is as

simple as:

Use of lists is more traditional; lists don't 'flatten', so we use either

list_concat() to create a new concatenated array:

b = {4, 5, 6};

c = list_concat(a, b);</syntaxhighlight>

 

or list_join():

which adds the elements of b onto a.

 

=={{header|SASL}}==

In SASL, the concat operator ++ is built-in

 

=={{header|Scala}}==

val arr2 = Array( 4, 5, 6 )

val arr3 = Array( 7, 8, 9 )

 

=={{header|Scheme}}==

(define (vector-append . arg) (list->vector (apply append (map vector->list arg))))

 

{{works with|Gauche Scheme}}

 

(use gauche.array)

 

 

=={{header|Seed7}}==

 

var array integer: a is [] (1, 2, 3, 4);

 

=={{header|SenseTalk}}==

put (4, 5, 6) into list2

put list1 &&& list2 into list3

 

=={{header|SETL}}==

B := [3, 4, 5];

print(A + B); -- [1 2 3 3 4 5]</syntaxhighlight>

 

=={{header|Sidef}}==

var arr2 = [4, 5, 6];

var arr3 = (arr1 + arr2); # => [1, 2, 3, 4, 5, 6]</syntaxhighlight>

 

=={{header|Simula}}==

 

CLASS REAL_ARRAY(N); INTEGER N;

The binary operation of concatenation is made with the <tt>;</tt> (semi-colon) from the type Sequence. It is also available for appending Sequences to WriteStreams.

 

{1. 2. 3. 4. 5} ; {6. 7. 8. 9. 10}

</syntaxhighlight>

 

Concatenation (appending) is made with the method <tt>,</tt> (comma), present in classes SequenceableCollection, ArrayedCollection and their subclasses (e.g. Array, String, OrderedCollection ...)

 

a := #(1 2 3 4 5).

b := #(6 7 8 9 10).

{{works with|CSnobol}}

 

define('cat(a1,a2)i,j') :(cat_end)

cat cat = array(prototype(a1) + prototype(a2))

6 7 8 9 10

1 2 3 4 5 6 7 8 9 10</pre>

 

=={{header|Standard ML}}==

val l1 = [1,2,3,4];;

val l2 = [5,6,7,8];;

=={{header|Stata}}==

===Macro language===

. matrix list a

 

r3 0 0 1</syntaxhighlight>

=== Mata ===

: a=2,9,4\7,5,3\6,1,8

 

 

=={{header|Swift}}==

let array2 = [4,5,6]

let array3 = array1 + array2</syntaxhighlight>

 

=={{header|Tailspin}}==

def a: [1, 2, 3];

def b: [4, 5, 6];

 

=={{header|Tcl}}==

set b {4 5 6}

set ab [concat $a $b]; # 1 2 3 4 5 6</syntaxhighlight>

 

=={{header|Trith}}==

 

=={{header|UNIX Shell}}==

{{works with|bash}}

 

array2=( 6 7 8 9 10 )

botharrays=( ${array1[@]} ${array2[@]} )</syntaxhighlight>

{{works with|bash}}

 

array2='6 7 8 9 10'

 

 

=={{header|Ursa}}==

# a contains the numbers 1-10, b contains 11-20

decl int<> a b

 

=={{header|Vala}}==

int[] c = new int[a.length + b.length];

Memory.copy(c, a, a.length * sizeof(int));

=={{header|VBA}}==

 

Option Explicit

 

 

=={{header|VBScript}}==

ReDim ret(UBound(arr1) + UBound(arr2) + 1)

For i = 0 To UBound(arr1)

 

=={{header|Visual Basic .NET}}==

Dim iArray1() As Integer = {1, 2, 3}

Dim iArray2() As Integer = {4, 5, 6}

</syntaxhighlight>

 

 

// Tectonics: v run array-concatenation.v

module main

Wart doesn't have arrays yet, just lists.

 

b <- '(4 5 6)

a+b

 

=={{header|Wren}}==

var arr2 = [4,5,6]

System.print(arr1 + arr2)</syntaxhighlight>

{{Out}}

<pre>[1, 2, 3, 4, 5, 6]</pre>

 

=={{header|Yabasic}}==

local ta, tb, nt, i

 

=={{header|Yacas}}==

 

Out> {1, 2, 3, 4, 5, 6}</syntaxhighlight>

 

=={{header|Yorick}}==

b = [4,5,6];

ab = grow(a, b);</syntaxhighlight>

Credit to Keith of [https://www.chibiakumas.com ChibiAkumas] for creating it.

 

 

ld hl,TestArray1 ; pointer to first array

801D:

AA BB CC DD EE FF 23 45 67 89

</pre>

 

=={{header|zkl}}==

Lists (both mutable and read only), no built in support for numeric vectors/arrays/matrices

T(1,2).extend(4,5,6) //-->L(1,2,4,5,6)</syntaxhighlight>

 

=={{header|zonnon}}==

module Main;

import

=={{header|Zsh}}==

Concatenating arrays.

b=(a b c)

 

c=($a $b)</syntaxhighlight>

Pushing a single element into an array.

Pushing another array into an array.

 

=={{header|ZX Spectrum Basic}}==

{{trans|Liberty BASIC}}

20 LET y=20

30 DIM a(x)