module TarotIAs where

import Data.List
import Cartes
import Tarot


data RandomIA = MonJeu ([Carte])

instance JoueurIA RandomIA where
    distrib cartes pos = MonJeu cartes -- Notre état est les cartes que l'on a
    debutPartie cartes i = cartes -- On s'en fiche de l'info
    jouer (MonJeu cartes) pli = (joué, MonJeu (delete joué cartes))
        where joué = minimum [carte | carte<-cartes, peutJouer carte cartes pli]
    finTour cartes pli = cartes