blob: be6cc63a9fab27cdb16e20a24ea9249c8796a706 (
plain) (
tree)
|
|
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()
|