morpion_rec/FeirisuNyanNyan/feirisu.ml


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

module Feirisu : Player.IA = struct

  module G = Morpion_rec.G

  let play g time =
    let cc = G.possibilities g in
    List.nth cc
      (Random.int (List.length cc))

end

module P = Player.P(Feirisu)

let () =
  Random.self_init();
  P.run()