17 lines
462 B
Haskell
17 lines
462 B
Haskell
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
|
|
|