diff options
Diffstat (limited to 'morpion_rec')
| -rw-r--r-- | morpion_rec/AmaneSuzuha/amane.ml | 2 | ||||
| -rw-r--r-- | morpion_rec/FeirisuNyanNyan/feirisu.ml | 2 | ||||
| -rw-r--r-- | morpion_rec/Mayushii/mayushii.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/morpion_rec/AmaneSuzuha/amane.ml b/morpion_rec/AmaneSuzuha/amane.ml index 7ac321f..b8f20e2 100644 --- a/morpion_rec/AmaneSuzuha/amane.ml +++ b/morpion_rec/AmaneSuzuha/amane.ml @@ -10,7 +10,7 @@ module Amane : Player.IA = struct let won_game g = match G.s g with Won _ -> true | _ -> false - let play g = + let play g time = let cc = G.possibilities g in match List.partition (fun act -> won_game (G.play g act)) diff --git a/morpion_rec/FeirisuNyanNyan/feirisu.ml b/morpion_rec/FeirisuNyanNyan/feirisu.ml index e15e1d1..544a650 100644 --- a/morpion_rec/FeirisuNyanNyan/feirisu.ml +++ b/morpion_rec/FeirisuNyanNyan/feirisu.ml @@ -3,7 +3,7 @@ module Feirisu : Player.IA = struct module G = Morpion_rec.G - let play g = + let play g time = let cc = G.possibilities g in List.nth cc (Random.int (List.length cc)) diff --git a/morpion_rec/Mayushii/mayushii.ml b/morpion_rec/Mayushii/mayushii.ml index 57ec3aa..ec2771c 100644 --- a/morpion_rec/Mayushii/mayushii.ml +++ b/morpion_rec/Mayushii/mayushii.ml @@ -3,7 +3,7 @@ module Mayushii : Player.IA = struct module G = Morpion_rec.G - let play g = + let play g time = let cc = G.possibilities g in List.hd cc |