Data update

Task/Array-concatenation/GW-BASIC/array-concatenation.basic

@@ -0,0 +1,23 @@
+100 U1 = 3: U2 = 4
+110 DIM A$(3)
+120 DATA "The","quick","brown","fox"
+130 FOR I = 0 TO U1 : READ A$(I) : NEXT I
+140 DIM B$(4)
+150 DATA "jumped","over","the","lazy","dog"
+160 FOR I = 0 TO U2 : READ B$(I) : NEXT I
+170 'SU2 ConcatArrays
+180   X = U1 + 1
+190   Y = U2 + 1
+200   Z = X + Y
+210   DIM C$(Z-1)
+220   FOR I = 0 TO X-1
+230      C$(I) = A$(I)
+240   NEXT I
+250   FOR I = 0 TO Y-1
+260     C$(U1+I+1) = B$(I)
+270   NEXT I
+280 '
+290 FOR I = 0 TO Z-1
+300   PRINT C$(I); " ";
+310 NEXT I
+320 END

Task/Array-concatenation/Minimal-BASIC/array-concatenation.basic

@@ -0,0 +1,21 @@
+10 LET X = 4
+20 LET Y = 5
+30 DIM A(3)
+40 DIM B(4)
+50 DIM C(8)
+60 FOR I = 1 TO X
+70  LET A(I-1) = I
+80 NEXT I
+90 FOR I = 1 TO Y
+100  LET B(I-1) = I*10
+110 NEXT I
+120 FOR I = 1 TO X
+130  LET C(I-1) = A(I-1)
+140 NEXT I
+150 FOR I = 1 TO Y
+160  LET C(X+I-1) = B(I-1)
+170 NEXT I
+180 FOR I = 1 TO X+Y
+190  PRINT C(I-1);
+200 NEXT I
+210 END

Task/Array-concatenation/Nu/array-concatenation.nu

@@ -0,0 +1,3 @@
+let a = [1 2 3]
+let b = [4 5 6]
+[$a $b] | flatten

Task/Array-concatenation/Quite-BASIC/array-concatenation.basic

@@ -0,0 +1,24 @@
+100 LET U1 = 3
+105 LET U2 = 4
+110 ARRAY A$
+120 DATA "The","quick","brown","fox"
+130 FOR I = 0 TO U1 : READ A$(I) : NEXT I
+140 ARRAY B$
+150 DATA "jumped","over","the","lazy","dog"
+160 FOR I = 0 TO U2 : READ B$(I) : NEXT I
+170 rem Sub ConcatArrays
+180   LET X = U1 + 1
+190   LET Y = U2 + 1
+200   LET Z = X + Y
+210   ARRAY C
+220   FOR I = 0 TO X-1
+230      LET C$(I) = A$(I)
+240   NEXT I
+250   FOR I = 0 TO Y-1
+260     LET C$(U1 + I + 1) = B$(I)
+270   NEXT I
+280 rem
+290 FOR I = 0 TO Z-1
+300   PRINT C$(I);" ";
+310 NEXT I
+320 END