Matrix transposition: Difference between revisions
Content added Content deleted
Line 691: | Line 691: | ||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Very straightforward solution... |
Very straightforward solution... |
||
<lang fsharp>let transpose (mtx : |
<lang fsharp>let transpose (mtx : _ [,]) = Array2D.init (mtx.GetLength 1) (mtx.GetLength 0) (fun x y -> mtx.[y,x]) |
||
array2D [ for i in 0..((Array2D.length2 mtx)-1) do |
|||
yield |
|||
[for j in 0..((Array2D.length1 mtx)-1) do |
|||
yield mtx.[j, i]]] |
|||
</lang> |
</lang> |
||