Start work on players!

1 files changed, 17 insertions, 0 deletions

diff --git a/morpion_rec/FeirisuNyanNyan/feirisu.ml b/morpion_rec/FeirisuNyanNyan/feirisu.ml
new file mode 100644
index 0000000..be6cc63
--- /dev/null
+++ b/morpion_rec/FeirisuNyanNyan/feirisu.ml
@@ -0,0 +1,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()