aboutsummaryrefslogblamecommitdiff
path: root/morpion_rec/FeirisuNyanNyan/feirisu.ml
blob: be6cc63a9fab27cdb16e20a24ea9249c8796a706 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
















                                    
module Mayushii : Player.IA = struct

  module G = Morpion_rec.G

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

end

module P = Player.P(Mayushii)

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