[SOLVED] CS {-

{-
Module: Dumb.

Implementation of a player that simply picks a random valid step.
-}
module Players.Dumb where

import Data.List

import Types
import Constants
import Action
import Board
import Player
import Cell

All possible steps.
allSteps :: [Step]
allSteps = [(c1, c2) | c1<-allCells, c2<-allCells]whereallCells = [(i, j) | i<-allColumns, j<-allRows]– Select random valid move.dumbAction :: Board -> [Player] -> String -> Int -> Maybe Action
dumbAction b (p:ps) _ r = if validMoves == [] then Nothing else Just (validMoves!!randomIdx)
where
validMoves = [Move mv | mv<-allSteps, (canMove p ps mv) && (validStep b mv)]randomIdx = r `mod` (length validMoves)– Make player in the usual way using ‘dumbAction’.makeDumbPlayer :: String -> Cell -> Int -> [Cell] -> Player
makeDumbPlayer n c rws wps = Player {
name = n,
turn = 1,
currentCell = c,
remainingWalls = rws,
winningPositions = wps,
isHuman = False,
chooseAction = dumbAction }