diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 09:54:28 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-11-10 09:54:28 +0100 |
| commit | 5fecbfb6532487efc711eb1a9763535db720a291 (patch) | |
| tree | 14747541254a5596e0257ca4f4b2138d8fdfc839 /judge/core.ml | |
| parent | d1312672670127b2ed400dfc94cf28911ddf9dc9 (diff) | |
| download | CompetIA-5fecbfb6532487efc711eb1a9763535db720a291.tar.gz CompetIA-5fecbfb6532487efc711eb1a9763535db720a291.zip | |
Implement morpion_rec
Diffstat (limited to 'judge/core.ml')
| -rw-r--r-- | judge/core.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/judge/core.ml b/judge/core.ml index 0f665c2..259bc1e 100644 --- a/judge/core.ml +++ b/judge/core.ml @@ -28,7 +28,7 @@ module type GAME = sig val new_game : game - val turn : game -> player -> string -> game + val play : game -> player -> string -> game val s : game -> game_status val display_game : game -> (string * string) -> unit @@ -287,7 +287,7 @@ module Core (G: GAME) : CORE = struct p.s <- StandBy !game_time; | Play act, Thinking (time, beg_r) -> let end_r = Unix.gettimeofday () in - let new_g = G.turn (List.hd g.hist) pi act in + let new_g = G.play (List.hd g.hist) pi act in let new_s = G.s new_g in send_m p OK; send_m op (Play act); |