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