Matrix transposition: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 316:
/* transpose */
TA=0,{nCols,nRows} nan array(TA)
{nRows}gthan(nCols) do{ Limit = nCols }
for (i=1, {i} lethan (Limit), ++i)
[i,i:end]get(A), [i:end,i]put(TA)
[i:end,i]get(A), [i,i:end]put(TA)
next
clear mark
{"ARRAY TRANSPOSE:\n",TA}println
_show array data(TA)
exit(0)
|