Module Transpose (transpose) where import Data.List transpose :: [[a]] -> [[a]] map sum $ transpose [[0,3,5,9],[10,0,0,9],[8,5,1,1]]
Prelude>