1 module Matrices (Matrix,mat,rows,mulm) where 2 import Numbers 3 import Vectors 4 -- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 5 -- section 4: matrices 6 7 type Matrix = [Vector] 8 9 mat :: [Vector] -> Matrix 10 mat m = m 11 12 rows :: Matrix -> [Vector] 13 rows m = m 14 15 mulm :: Matrix -> Vector -> Vector 16 m `mulm` v = vec (map (inpr v) (rows m))