Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,19 @@
|
|||
function transpose(sequence in)
|
||||
sequence out
|
||||
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
|
||||
|
||||
sequence m
|
||||
m = {
|
||||
{1,2,3,4},
|
||||
{5,6,7,8},
|
||||
{9,10,11,12}
|
||||
}
|
||||
|
||||
? transpose(m)
|
||||
Loading…
Add table
Add a link
Reference in a new issue