rnhmjoj/life
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Generalize empty matrix function

Browse Source
This commit is contained in:
Rnhmjoj 2014-12-19 20:28:32 +01:00
parent 5bae8c5796
commit 68e812646f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Matrix.hs
View File

@ -24,6 +24,6 @@ indeces :: Mat a -> Mat Pos
indeces (Mat m) = Mat [[(x,y) | y <- [0..length (m !! x)-1]] | indeces (Mat m) = Mat [[(x,y) | y <- [0..length (m !! x)-1]] |
x <- [0..length m-1]] x <- [0..length m-1]]
-- | Create a matrix of zeros -- | Create a constant matrix
zeros :: Int -> Int -> Mat Int constant :: a -> Int -> Int -> Mat a
zeros x y = Mat (replicate x $ replicate y 0) constant k x y = Mat (replicate x $ replicate y k)