implementation module NoReferee import StdEnvExt import Referee NoReferee :: !FootballField -> Referee NoReferee field = { name = "NoReferee" , brain = { memory = initMem , ai = randomlessRefereeAI (brain field) } , refActionPics = [] } :: Memory = Memory initMem :: Memory initMem = Memory brain :: !FootballField !(!RefereeInput,!Memory) -> (!RefereeOutput,!Memory) brain field ({RefereeInput | theBall=ballState,team1,team2},memory) = ([], memory)