Anonymous user
Matrix transposition: Difference between revisions
no edit summary
m (→{{header|REXX}}: added/changed some comments and whitespace, used a more idiomatic parsing of the @ array.) |
No edit summary |
||
Line 3,329:
L(L(1))
</pre>
=={{header|zonnon}}==
<lang zonnon>
module MatrixOps;
type
Matrix = array {math} *,* of integer;
procedure WriteMatrix(x: array {math} *,* of integer);
var
i,j: integer;
begin
for i := 0 to len(x,0) - 1 do
for j := 0 to len(x,1) - 1 do
write(x[i,j]);
end;
writeln;
end
end WriteMatrix;
procedure Transposition;
var
m,x: Matrix;
begin
m := [[1,2,3],[3,4,5]]; (* matrix initialization *)
x := !m; (* matrix trasposition *)
WriteMatrix(x);
end Transposition;
begin
Transposition;
end MatrixOps.
</lang>
| |||