aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix clearing rows

Browse source
This commit is contained in:
Sam Tay 2017-06-17 16:59:31 -04:00
parent ec72607827
commit 82ca49321c
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Tetris.hs
View file

@ -169,8 +169,8 @@ clearFullRows :: Game -> Game
clearFullRows g = g & board %~ clearBoard clearFullRows g = g & board %~ clearBoard
& rowClears %~ (|> rowCount) & rowClears %~ (|> rowCount)
where where
clearBoard = M.mapKeys shiftCoordAbove . M.filterWithKey isInFullRow clearBoard = M.mapKeys shiftCoordAbove . M.filterWithKey notInFullRow
isInFullRow (_,y) _ = y `elem` fullRowIndices notInFullRow (_,y) _ = y `notElem` fullRowIndices
rowCount = length fullRowIndices rowCount = length fullRowIndices
fullRowIndices = filter isFullRow [1..boardHeight] fullRowIndices = filter isFullRow [1..boardHeight]
isFullRow r = boardWidth == (length . M.filterWithKey (inRow r) $ g ^. board) isFullRow r = boardWidth == (length . M.filterWithKey (inRow r) $ g ^. board)