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

3 lines
73 B
Haskell

tpose [ms] = [[m] | m <- ms]
tpose (ms:mss) = zipWith (:) ms (tpose mss)