Untitled

ganhouJogo :: Jogo -> Bool
ganhouJogo jogo =  (null (inimigosJogo jogo)) && portaisVazios(portaisJogo jogo)

portaisVazios :: [Portal] -> Bool
portaisVazios [] = True
portaisVazios (portal : ps) | ondasVazias (ondasPortal portal) = portaisVazios ps
                            | otherwise = False

ondasVazias :: [Onda] -> Bool
ondasVazias [] = True
ondasVazias ondas = False

-- perde se a vida da base for menor ou igual a zero
perdeuJogo :: Jogo -> Bool
perdeuJogo jogo = vidaBase (baseJogo jogo) <= 0