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

Move single-use functions into "where" clause

Browse source
This commit is contained in:
Sam Tay 2017-06-14 22:58:51 -04:00
parent 0bf364ec12
commit 6c1627c481
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tetris.hs
View file

@ -98,10 +98,9 @@ rotate' b@(Block s o@(xo,yo) cs)
| s == O = b -- O doesn't need rotation | s == O = b -- O doesn't need rotation
| s == I && (xo,yo+1) `elem` cs = rotateWith clockwise b -- I only has two orientations | s == I && (xo,yo+1) `elem` cs = rotateWith clockwise b -- I only has two orientations
| otherwise = rotateWith counterclockwise b | otherwise = rotateWith counterclockwise b
where
rotateWith :: (Coord -> Coord -> Coord) -> Block -> Block rotateWith :: (Coord -> Coord -> Coord) -> Block -> Block
rotateWith dir b = let o = b ^. origin rotateWith dir b = b & extra %~ fmap (dir (b ^. origin))
in b & extra %~ fmap (dir o)
clockwise :: Coord -- ^ origin clockwise :: Coord -- ^ origin
-> Coord -- ^ point to rotate around origin -> Coord -- ^ point to rotate around origin