abhin4v
/
hasdoku
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Makes Cell data strict

unboxed-vector
Abhinav Sarkar 2018-06-30 16:38:45 +05:30
parent 5a3044e09c
commit 0377999561
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Sudoku.hs
View File

@ -17,8 +17,8 @@ fixM f x = f x >>= \x' -> if x' == x then return x else fixM f x'
setBits :: Data.Word.Word16 -> [Data.Word.Word16] -> Data.Word.Word16
setBits = Data.List.foldl' (Data.Bits..|.)
data Cell = Fixed Data.Word.Word16
| Possible Data.Word.Word16
data Cell = Fixed {-# UNPACK #-} !Data.Word.Word16
| Possible {-# UNPACK #-} !Data.Word.Word16
deriving (Show, Eq)
type Row = [Cell]