Post #2735428

@byorgey@mathstodon.xyz Like this: ``` transpose :: [[a]] -> [[a]] transpose = unfoldr next where next xss = case takeWhile (not . null) xss of [] -> Nothing yss -> Just (map head yss, map tail yss) ```