B

Task/Array-concatenation/BBC-BASIC/array-concatenation.bbc

@@ -0,0 +1,19 @@
+      DIM a(3), b(4)
+      a() = 1, 2, 3, 4
+      b() = 5, 6, 7, 8, 9
+      PROCconcat(a(), b(), c())
+
+      FOR i% = 0 TO DIM(c(),1)
+        PRINT c(i%)
+      NEXT
+      END
+
+      DEF PROCconcat(a(), b(), RETURN c())
+      LOCAL s%, na%, nb%
+      s% = ^a(1) - ^a(0) : REM Size of each array element
+      na% = DIM(a(),1)+1 : REM Number of elements in a()
+      nb% = DIM(b(),1)+1 : REM Number of elements in b()
+      DIM c(na%+nb%-1)
+      SYS "RtlMoveMemory", ^c(0), ^a(0), s%*na%
+      SYS "RtlMoveMemory", ^c(na%), ^b(0), s%*nb%
+      ENDPROC

Task/Array-concatenation/Burlesque/array-concatenation.blq

@@ -0,0 +1,2 @@
+blsq ) {1 2 3}{4 5 6}_+
+{1 2 3 4 5 6}