2008-04-15 transpose Haskell transpose :: [[Int]] -> [[Int]] transpose [] = [] transpose (x:[]) = map (\n -> [n]) x transpose (x:xs) = zipWith (:) x (transpose xs)こんなん書いたのに実は標準であったというオチが。