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))