Data commit

Task/Array-concatenation/Yabasic/array-concatenation.basic

@@ -0,0 +1,36 @@
+sub arrayConcatenation(a(), b())
+	local ta, tb, nt, i
+	
+	ta = arraysize(a(), 1)
+	tb = arraysize(b(), 1)
+	
+	nt = ta + tb
+	
+	redim a(nt)
+	
+	for i = ta + 1 to nt
+		a(i) = b(i - ta)
+	next i
+	
+	return nt
+end sub
+
+//===============================
+
+SIZE = 5
+
+dim a(SIZE)
+dim b(SIZE)
+
+for i = 1 to SIZE
+	a(i) = i
+	b(i) = i + SIZE
+next i
+
+nt = arrayConcatenation(a(), b())
+
+for i = 1 to nt
+	print a(i);
+	if i < nt print ", ";
+next i
+print