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

Use newtype for Matrix

Browse Source
This commit is contained in:
Rnhmjoj 2015-03-08 01:34:03 +01:00
parent 13f8d05030
commit 18fe09a531
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Matrix.hs
View File

@ -1,8 +1,8 @@
module Matrix where module Matrix where
import Data.List (intercalate) import Data.List (intercalate)
data Mat a = Mat [[a]] newtype Mat a = Mat [[a]]
type Pos = (Int, Int) type Pos = (Int, Int)
instance Functor Mat where instance Functor Mat where
fmap f (Mat m) = Mat ((map . map) f m) fmap f (Mat m) = Mat ((map . map) f m)