diff options
| author | Alex Auvolat <alex.auvolat@ens.fr> | 2014-11-15 22:36:31 +0100 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ens.fr> | 2014-11-15 22:36:31 +0100 |
| commit | 0e83991e3f8739ec00d744f038fdfaea2b60c98e (patch) | |
| tree | 5f2dab2a4ef5afd77fbc9372f57b7c7b063b4497 /morpion_rec | |
| parent | 6881ee7acb98c902c312301d7990331e4a1ed854 (diff) | |
| download | CompetIA-0e83991e3f8739ec00d744f038fdfaea2b60c98e.tar.gz CompetIA-0e83991e3f8739ec00d744f038fdfaea2b60c98e.zip | |
Nothing big...
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 |