9 lines
244 B
Text
9 lines
244 B
Text
function transpose(sequence in)
|
|
sequence out = repeat(repeat(0,length(in)),length(in[1]))
|
|
for n=1 to length(in) do
|
|
for m=1 to length(in[1]) do
|
|
out[m][n] = in[n][m]
|
|
end for
|
|
end for
|
|
return out
|
|
end function
|