Rosetta Code

Matrix transposition: Difference between revisions

Page Discussion

Matrix transposition (view source)

Revision as of 16:49, 26 March 2022

138 bytes added ,  2 years ago
m
→‎{{header|Phix}}: improved routine and var names, marked js compatible
(Added XPL0 example.)
m (→‎{{header|Phix}}: improved routine and var names, marked js compatible)
Line 3,185:
 
=={{header|Phix}}==
<!--<lang Phix>(phixonline)-->
<span style="color: #008080;">functionwith</span> <span style="color: #000000008080;">transpose</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">mat</span><span style="color: #0000FF;">)javascript_semantics</span>
<span style="color: #004080008080;">integerfunction</span> <span style="color: #000000;">nmatrix_transpose</span> <span style="color: #0000FF;">=(</span> <span style="color: #7060A8004080;">lengthsequence</span><span style="color: #0000FF;">(</span><span style="color: #000000;">mat</span><span style="color: #0000FF;">),</span>
<span style="color: #000000004080;">minteger</span> <span style="color: #0000FF000000;">=rows</span> <span style="color: #7060A80000FF;">length=</span><span style="color: #0000FF;">(</span><span style="color: #0000007060A8;">matlength</span><span style="color: #0000FF;">[(</span><span style="color: #000000;">1mat</span><span style="color: #0000FF;">]),</span>
<span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8000000;">repeatcols</span> <span style="color: #0000FF;">(=</span> <span style="color: #7060A8;">repeatlength</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">nmat</span><span style="color: #0000FF;">),[</span><span style="color: #000000;">m1</span><span style="color: #0000FF;">])</span>
<span style="color: #008080004080;">forsequence</span> <span style="color: #000000;">ires</span> <span style="color: #0000FF;">=</span> <span style="color: #0000007060A8;">1repeat</span><span style="color: #0000FF;">(</span><span style="color: #0080807060A8;">torepeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n0</span><span style="color: #0000FF;">,</span><span style="color: #008080000000;">rows</span><span style="color: #0000FF;">),</span><span style="color: #000000;">cols</span><span style="color: #0000FF;">do)</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">jr</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">mrows</span> <span style="color: #008080;">do</span>
<span style="color: #000000008080;">resfor</span><span style="color: #0000FF;">[</span><span style="color: #000000;">jc</span><span style="color: #0000FF;">][=</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]1</span> <span style="color: #0000FF008080;">=to</span> <span style="color: #000000;">matcols</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">][</span><span style="color: #000000;">j</span><span style="color: #0000FF008080;">]do</span>
<span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">c</span><span style="color: #0000FF;">][</span><span style="color: #000000;">r</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">mat</span><span style="color: #0000FF;">[</span><span style="color: #000000;">r</span><span style="color: #0000FF;">][</span><span style="color: #000000;">c</span><span style="color: #0000FF;">]</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
Petelomax
7,794

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/57145"