37 lines
431 B
Plaintext
37 lines
431 B
Plaintext
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
|