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

Use applicative style

Browse Source
This commit is contained in:
Rnhmjoj 2015-03-08 01:34:41 +01:00
parent 8fc6e8acbc
commit 7b97c9c65d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Matrix.hs
View File

@ -1,4 +1,6 @@
module Matrix where
import Control.Applicative
import Data.List (intercalate)
newtype Mat a = Mat [[a]]
@ -26,8 +28,9 @@ group n xs = take n xs : group n (drop n xs)
-- | Create a matrix of indeces of a matrix
indeces :: Mat a -> Mat Pos
indeces (Mat m) = Mat [[(x,y) | y <- [0..length (m !! x)-1]] |
x <- [0..length m-1]]
indeces (Mat m) = Mat (group y pos) where
(x, y) = (length m, length (m !! 0))
pos = liftA2 (,) [0..x-1] [0..y-1]
-- | Create a constant matrix
constant :: a -> Int -> Int -> Mat a