skat/AI/Stupid.hs

module AI.Stupid where

import Player
import Pile
import Card

data Stupid = Stupid { getTeam :: Team
                     , getHand :: Hand }
              deriving Show

instance Player Stupid where
    team = getTeam
    hand = getHand
    chooseCard p _ _ hand = do
        trumpCol <- trumpColour
        turnCol <- turnColour
        let possible = filter (isAllowed trumpCol turnCol hand) hand
        return (head possible, p)