Matrix transposition: Difference between revisions

Matrix transposition (view source)

Revision as of 06:40, 28 March 2021

2,553 bytes added , 3 years ago

m

→‎{{header|Phix}}: added syntax colouring the hard way, minor improvements: calculate lengths just the once

Petelomax

7,806

edits

Revision as of 20:24, 27 March 2021 (view source) rosettacode>Gargom (Added 11l implementation) ← Older edit		Revision as of 06:40, 28 March 2021 (view source) Petelomax (talk \| contribs) m (→‎{{header\|Phix}}: added syntax colouring the hard way, minor improvements: calculate lengths just the once) Newer edit →
Line 2,869: =={{header\|Phix}}== <!--<lang Phix>--> ~~Copy of [[Matrix_transposition#Euphoria\|Euphoria]]~~ <span style="color: #008080;">function</span> <span style="color: #000000;">transpose</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">mat</span><span style="color: #0000FF;">)</span> ~~<lang Phix>function transpose(sequence in)~~ <span style="color: #004080;">integer</span> <span style="color: #000000;">n</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">mat</span><span style="color: #0000FF;">),</span> ~~sequence out = repeat(repeat(0,length(in)),length(in[1]))~~ <span style="color: #000000;">m</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">mat</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">])</span> ~~for n=1 to length(in) do~~ <span style="color: #004080;">sequence</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #000000;">m</span><span style="color: #0000FF;">)</span> ~~for m=1 to length(in[1]) do~~ <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">n</span> <span style="color: #008080;">do</span> ~~out[m][n] = in[n][m]~~ <span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">m</span> <span style="color: #008080;">do</span> ~~end for~~ <span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">][</span><span style="color: #000000;">i</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;">i</span><span style="color: #0000FF;">][</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]</span> ~~end for~~ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> ~~return out~~ <span style="color: #008080;">end</span> <span style="color: #008080;">for</span> ~~end function</lang>~~ <span style="color: #008080;">return</span> <span style="color: #000000;">res</span> <span style="color: #008080;">end</span> <span style="color: #008080;">function</span> <!--</lang>--> =={{header\|PHP}}==