Task

Show how to concatenate two arrays in your language.



If this is as simple as array1 + array2, so be it.




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