Matrix transposition: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed some comments and whitespace, used a more idiomatic parsing of the @ array.) |
No edit summary |
||
Line 3,329: | Line 3,329: | ||
L(L(1)) |
L(L(1)) |
||
</pre> |
</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> |