Rosetta Code

Matrix transposition: Difference between revisions

Page Discussion

Matrix transposition (view source)

Revision as of 12:04, 25 December 2012

30 bytes added ,  11 years ago
Rename variable
(APL solution)
(Rename variable)
Line 1,983:
const func matrix: transpose (in matrix: aMatrix) is func
result
var matrix: resulttransposedMatrix is matrix.value;
local
var integer: i is 0;
var integer: j is 0;
begin
resulttransposedMatrix := length(aMatrix[1]) times length(aMatrix) times 0.0;
for i range 1 to length(aMatrix) do
for j range 1 to length(aMatrix[1]) do
resulttransposedMatrix[j][i] := aMatrix[i][j];
end for;
end for;
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/56912"