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

remove redundant brackets in Tetris.hs

Browse source
This commit is contained in:
Willem Van Onsem 2021-03-15 23:44:15 +01:00
parent 55f87143b4
commit f57fa64bfb
No known key found for this signature in database
GPG key ID: 1D22C3A122D794F4
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Tetris.hs
View file

@ -143,8 +143,8 @@ rotateRaw b@(Block s o@(V2 xo yo) cs)
s == I && V2 xo (yo + 1) `elem` cs = rotateWith clockwise s == I && V2 xo (yo + 1) `elem` cs = rotateWith clockwise
| otherwise = rotateWith counterclockwise | otherwise = rotateWith counterclockwise
where where
clockwise = (+ o) . (cwperp) . (subtract o) clockwise = (+ o) . cwperp . subtract o
counterclockwise = (+ o) . LV.perp . (subtract o) counterclockwise = (+ o) . LV.perp . subtract o
rotateWith dir = b & extra %~ fmap dir rotateWith dir = b & extra %~ fmap dir
cwperp (V2 x y) = V2 y (-x) cwperp (V2 x y) = V2 y (-x)
@ -160,7 +160,7 @@ coords b = b ^. origin : b ^. extra
bagFourTetriminoEach :: Seq.Seq Tetrimino -> IO (Tetrimino, Seq.Seq Tetrimino) bagFourTetriminoEach :: Seq.Seq Tetrimino -> IO (Tetrimino, Seq.Seq Tetrimino)
bagFourTetriminoEach (t :<| ts) = pure (t, ts) bagFourTetriminoEach (t :<| ts) = pure (t, ts)
bagFourTetriminoEach Empty = bagFourTetriminoEach Empty =
bagFourTetriminoEach <=< shuffle . Seq.fromList . take 28 $ cycle [(I) ..] bagFourTetriminoEach <=< shuffle . Seq.fromList . take 28 $ cycle [I ..]
-- | Initialize a game with a given level -- | Initialize a game with a given level
initGame :: Int -> IO Game initGame :: Int -> IO Game
@ -260,8 +260,8 @@ blockStopped g = isStopped (g ^. board) (g ^. block)
isStopped :: Board -> Block -> Bool isStopped :: Board -> Block -> Bool
isStopped brd = any stopped . coords isStopped brd = any stopped . coords
where where
stopped = (||) <$> atBottom <*> (`M.member` brd) . (translate Down) stopped = (||) <$> atBottom <*> (`M.member` brd) . translate Down
atBottom = (== 1) . (view _y) atBottom = (== 1) . view _y
hardDrop :: Tetris () hardDrop :: Tetris ()
hardDrop = hardDroppedBlock >>= assign block hardDrop = hardDroppedBlock >>= assign block
@ -277,8 +277,8 @@ hardDroppedBlock = do
, xo == x , xo == x
, yo < y , yo < y
] ]
minY = minimum $ (view _y) <$> blockCoords minY = minimum $ view _y <$> blockCoords
dist = minimum $ (subtract 1) <$> (minY : diffs) dist = minimum $ subtract 1 <$> (minY : diffs)
translateBy dist Down <$> use block translateBy dist Down <$> use block
-- | Freeze current block -- | Freeze current block
@ -326,7 +326,7 @@ shuffle xs
| null xs = mempty | null xs = mempty
| otherwise = do | otherwise = do
randomPosition <- getStdRandom (randomR (0, length xs - 1)) randomPosition <- getStdRandom (randomR (0, length xs - 1))
let (left, (y :<| ys)) = Seq.splitAt randomPosition xs let (left, y :<| ys) = Seq.splitAt randomPosition xs
fmap (y <|) (shuffle $ left >< ys) fmap (y <|) (shuffle $ left >< ys)
v2 :: (a, a) -> V2 a v2 :: (a, a) -> V2 a