Data update

Task/Array-concatenation/Ada/array-concatenation.adb

@@ -0,0 +1,3 @@
+type T is array (Positive range <>) of Integer;
+X : T := (1, 2, 3);
+Y : T := X & (4, 5, 6); -- Concatenate X and (4, 5, 6)

Task/Array-concatenation/AutoIt/array-concatenation.au3

@@ -0,0 +1,18 @@
+_ArrayConcatenate($avArray, $avArray2)
+Func _ArrayConcatenate(ByRef $avArrayTarget, Const ByRef $avArraySource, $iStart = 0)
+	If Not IsArray($avArrayTarget) Then Return SetError(1, 0, 0)
+	If Not IsArray($avArraySource) Then Return SetError(2, 0, 0)
+	If UBound($avArrayTarget, 0) <> 1 Then
+		If UBound($avArraySource, 0) <> 1 Then Return SetError(5, 0, 0)
+		Return SetError(3, 0, 0)
+	EndIf
+	If UBound($avArraySource, 0) <> 1 Then Return SetError(4, 0, 0)
+
+	Local $iUBoundTarget = UBound($avArrayTarget) - $iStart, $iUBoundSource = UBound($avArraySource)
+	ReDim $avArrayTarget[$iUBoundTarget + $iUBoundSource]
+	For $i = $iStart To $iUBoundSource - 1
+		$avArrayTarget[$iUBoundTarget + $i] = $avArraySource[$i]
+	Next
+
+	Return $iUBoundTarget + $iUBoundSource
+EndFunc   ;==>_ArrayConcatenate

Task/Array-concatenation/COBOL/array-concatenation.cob

@@ -0,0 +1,47 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. array-concat.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  table-one.
+    05  int-field PIC 999 OCCURS 0 TO 5 TIMES DEPENDING ON t1.
+01  table-two.
+    05  int-field PIC 9(4) OCCURS 0 TO 10 TIMES DEPENDING ON t2.
+77  tally         USAGE IS INDEX.
+77  t1            PIC 99.
+77  t2            PIC 99.
+77  show          PIC Z(4) USAGE IS DISPLAY.
+
+PROCEDURE DIVISION.
+array-concat-main.
+    PERFORM initialize-tables
+    PERFORM concatenate-tables
+    PERFORM display-result
+    GOBACK.
+
+initialize-tables.
+    MOVE 4 TO t1
+    PERFORM VARYING tally FROM 1 BY 1 UNTIL tally > t1
+        COMPUTE int-field OF table-one(tally) = tally * 3
+    END-PERFORM
+    MOVE 3 TO t2
+    PERFORM VARYING tally FROM 1 BY 1 UNTIL tally > t2
+        COMPUTE int-field OF table-two(tally) = tally * 6
+    END-PERFORM.
+
+concatenate-tables.
+    PERFORM VARYING tally FROM 1 BY 1 UNTIL tally > t1
+        ADD 1 TO t2
+        MOVE int-field OF table-one(tally)
+          TO int-field OF table-two(t2)
+    END-PERFORM.
+
+display-result.
+    PERFORM VARYING tally FROM 1 BY 1 UNTIL tally = t2
+        MOVE int-field OF table-two(tally) TO show
+        DISPLAY FUNCTION TRIM(show) ", " WITH NO ADVANCING
+    END-PERFORM
+    MOVE int-field OF table-two(tally) TO show
+    DISPLAY FUNCTION TRIM(show).
+
+END PROGRAM array-concat.

Task/Array-concatenation/Emacs-Lisp/array-concatenation.el

@@ -0,0 +1,2 @@
+(vconcat '[1 2 3] '[4 5] '[6 7 8 9])
+=> [1 2 3 4 5 6 7 8 9]

Task/Array-concatenation/Euphoria/array-concatenation.eu

@@ -0,0 +1,5 @@
+sequence s1,s2,s3
+s1 = {1,2,3}
+s2 = {4,5,6}
+s3 = s1 & s2
+? s3

Task/Array-concatenation/Gleam/array-concatenation.gleam

@@ -0,0 +1,11 @@
+import gleam/int
+import gleam/io
+import gleam/list
+import gleam/string
+
+pub fn main() {
+  list.append([1, 2, 3], [4, 5, 6])
+  |> list.map(int.to_string)
+  |> string.join(" ")
+  |> io.println
+}

Task/Array-concatenation/OmniMark/array-concatenation.xom

@@ -0,0 +1,11 @@
+process
+  local integer arr1 variable initial {1, 2, 3}
+  local integer arr2 variable initial {4, 5, 6}
+  ; adds the arr2 items to arr1
+  repeat over arr2
+    set new arr1 to arr2
+  again
+  ; arr 1 now has all items - output them
+  repeat over arr1
+    put #main-output '%d(arr1) '
+  again

Task/Array-concatenation/PowerShell/array-concatenation.ps1

@@ -0,0 +1,5 @@
+$a = 1,2,3
+$b = 4,5,6
+
+$c = $a + $b
+Write-Host $c

Task/Array-concatenation/REXX/array-concatenation.rexx

@@ -1,4 +1,4 @@
--- 23 Aug 2025
+-- 21 Feb 2026
 include Setting
 
 say 'ARRAY CONCATENATION'
@@ -17,7 +17,8 @@ do i = 1 to a.0
    say i a.i
 end
 say
-call DumpVariables
+call Showvars
 exit
 
+-- Showvars
 include Math

Task/Array-concatenation/ReScript/array-concatenation.res

@@ -0,0 +1 @@
+Js.Array2.concat(["a", "b"], ["c", "d", "e"]) == ["a", "b", "c", "d", "e"]

Task/Array-concatenation/Rebol/array-concatenation.rebol

@@ -0,0 +1,7 @@
+a1: [1 2 3]
+a2: [4 5 6]
+a3: [7 8 9]
+
+append a1 a2 ; -> [1 2 3 4 5 6]
+
+append/only a1 a3 ; -> [1 2 3 4 5 6 [7 8 9]]

Task/Array-concatenation/Rye/array-concatenation.rye

@@ -0,0 +1,5 @@
+arr1: { 1 2 3 4 }
+arr2: { "one" "two" "three" "four" }
+print concat arr1 arr2
+
+1 2 3 4 one two three four

Task/Array-concatenation/VBScript/array-concatenation.vbs

@@ -0,0 +1,18 @@
+Function ArrayConcat(arr1, arr2)
+    ReDim ret(UBound(arr1) + UBound(arr2) + 1)
+    For i = 0 To UBound(arr1)
+        ret(i) = arr1(i)
+    Next
+    offset = Ubound(arr1) + 1
+    For i = 0 To UBound(arr2)
+        ret(i + offset) = arr2(i)
+    Next
+    ArrayConcat = ret
+End Function
+
+arr1 = array(10,20,30)
+arr2 = array(40,50,60)
+WScript.Echo "arr1 = array(" & Join(arr1,", ") & ")"
+WScript.Echo "arr2 = array(" & Join(arr2,", ") & ")"
+arr3 = ArrayConcat(arr1, arr2)
+WScript.Echo "arr1 + arr2 = array(" & Join(arr3,", ") & ")"