RosettaCodeData/Task/Matrix-transposition/Haskell/matrix-transposition-5.hs

import Numeric.LinearAlgebra

a :: Matrix I
a = (3><2)
  [1,2
  ,3,4
  ,5,6]

main = do
  print $ a
  print $ tr a