mosta.fs

namespace MonsterBrain

type turnoption = Doms.TurnOption

type MonsterBrain() =
  let calcCoeff (o:turnoption) =
    let first = o.board.[0]
    let last  = o.board.[o.board.Count-1]
    let mutable hasFirst = false
    let mutable hasLast  = false
    for d in o.hand do
      if first = d.l || first = d.r then hasFirst <- true
      if last  = d.l || last  = d.r then hasLast  <- true
    if hasFirst && hasLast then 20 else 1

  let scoreOption (o:turnoption) =
    (o.played.l + o.played.r) * calcCoeff o

  interface Doms.IPlayer with
    member this.GetName() = "F# MonsterBrain"
    member this.GetMove( inTurnOptions ) =
      fst (Seq.maxBy (fun (d) -> scoreOption (snd d))
            (Seq.mapi (fun i t -> (i, t)) inTurnOptions))