Skip to content

Instantly share code, notes, and snippets.

@SilverRainZ

SilverRainZ/gist:dd8590c77276b42f5096

Created March 17, 2016 16:02
Show Gist options
  • Save SilverRainZ/dd8590c77276b42f5096 to your computer and use it in GitHub Desktop.
Save SilverRainZ/dd8590c77276b42f5096 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
data Matrix = Matrix {getMartix :: [[Int]]}
transpose (Matrix ([]:_)) = Matrix []
transpose (Matrix xs) = Matrix $ map head xs : getMartix (transpose $ Matrix $ map tail xs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment