aboutsummaryrefslogtreecommitdiff
path: root/morpion_rec/FeirisuNyanNyan
diff options
context:
space:
mode:
Diffstat (limited to 'morpion_rec/FeirisuNyanNyan')
-rw-r--r--morpion_rec/FeirisuNyanNyan/_tags2
-rw-r--r--morpion_rec/FeirisuNyanNyan/feirisu.ml17
l---------morpion_rec/FeirisuNyanNyan/lib1
3 files changed, 20 insertions, 0 deletions
diff --git a/morpion_rec/FeirisuNyanNyan/_tags b/morpion_rec/FeirisuNyanNyan/_tags
new file mode 100644
index 0000000..c653205
--- /dev/null
+++ b/morpion_rec/FeirisuNyanNyan/_tags
@@ -0,0 +1,2 @@
+"lib": include
+true: use_unix, use_graphics
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()
diff --git a/morpion_rec/FeirisuNyanNyan/lib b/morpion_rec/FeirisuNyanNyan/lib
new file mode 120000
index 0000000..e834a2a
--- /dev/null
+++ b/morpion_rec/FeirisuNyanNyan/lib
@@ -0,0 +1 @@
+../../judge \ No newline at end of file