morpion_rec/Mayushii/mayushii.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Mayushii : Player.IA = struct

  module G = Morpion_rec.G

  let play g =
    let cc = G.possibilities g in
    List.hd cc

end

module P = Player.P(Mayushii)

let () = P.run()