src/matrix.hs


1
2
3
4
5
6
7
8
9
10

module Matrix where

import Data.List


newtype Matrix a = Matrix { getMatrix :: [[a]] }

instance Show a => Show (Matrix a) where
    show (Matrix m) = intercalate "\n" (map showLine m)
        where showLine l = "[ " ++ intercalate " , " (map show l) ++ " ]"