Matrix transposition: Difference between revisions
Content added Content deleted
(→Insitux: implementation) |
|||
Line 1,371: | Line 1,371: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
See [[#Pascal]]; |
See [[#Pascal]]; |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight lang="easylang"> |
|||
proc trans . m[][] . |
|||
len n[][] len m[1][] |
|||
for i to len n[][] |
|||
for j to len m[][] |
|||
n[i][] &= m[j][i] |
|||
. |
|||
. |
|||
swap n[][] m[][] |
|||
. |
|||
m[][] = [ [ 1 2 3 4 ] [ 5 6 7 8 ] [ 9 10 11 12 ] ] |
|||
print m[][] |
|||
print "transpose" |
|||
trans m[][] |
|||
print m[][] |
|||
</syntaxhighlight> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |
||
<syntaxhighlight lang="scheme"> |
<syntaxhighlight lang="scheme"> |