3 lines
73 B
Haskell
3 lines
73 B
Haskell
|
tpose [ms] = [[m] | m <- ms]
|
||
|
|
tpose (ms:mss) = zipWith (:) ms (tpose mss)
|