\section{Ejercicio 8: \textit{ganador}}
\subsection{Enunciado}
Definir la funci\'on 
\texttt{
\\ganador :: Juego $\to$ Maybe Color
}
\\que devuelva Just c si el color c es el ganador del partido y Nothing si todav\'ia no se defini\'o un
ganador. Recordar que, si le toca el turno a un jugador que no puede mover ninguna ficha,
ese jugador pierde.
\subsection{Codigo}

\scriptsize\begin{verbatim}

ganador :: Juego -> Maybe Color
ganador (J c t)  | (length (movimientosPosibles (J c t)) == 0) = Just (invertirColor c)
                          | (length (fichas t (invertirColor c)) == 0) = Just c
                          | otherwise = Nothing

\end{verbatim}
\normalsize