RosettaCodeData/Task/Array-concatenation/Icon/array-concatenation.icon

11 lines
168 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
procedure main()
L1 := [1, 2, 3, 4]
L2 := [11, 12, 13, 14]
L3 := L1 ||| L2
sep := ""
every writes(sep, !L3) do
sep := ", "
write()
end