module Tarefa3 where
import Labs2026
avancaTempo :: Jogo -> Jogo
avancaTempo :: Jogo -> Jogo
avancaTempo Jogo
j
| Jogo -> Bool
perdeuJogo Jogo
j = Jogo
j
| Bool
otherwise = Jogo -> Jogo
gravidade (Jogo -> Jogo
avancaObjetos Jogo
j)
perdeuJogo :: Jogo -> Bool
perdeuJogo :: Jogo -> Bool
perdeuJogo Jogo
j = Bool
forall a. HasCallStack => a
undefined
avancaObjetos :: Jogo -> Jogo
avancaObjetos :: Jogo -> Jogo
avancaObjetos Jogo
j = Jogo
forall a. HasCallStack => a
undefined
gravidade :: Jogo -> Jogo
gravidade :: Jogo -> Jogo
gravidade Jogo
j = Jogo
forall a. HasCallStack => a
undefined