blob: 38780bb0bd44a02d440db7249801c67d7d59ad69 (
plain)
1
2
3
4
5
6
7
8
9
10
|
module Matrix where
-- import Data.List
-- newtype Matrix a = Matrix { getMatrix :: [MatrixRow a] }
-- type MatrixRow a = [a]
-- instance Show a => Show (Matrix a) where
-- show (Matrix m) = intercalate "\n" (map showLine m)
-- where showLine l = "[ " ++ intercalate " , " (map show l) ++ " ]"
|
