Implement TIME OUT.

1 files changed, 5 insertions, 5 deletions

diff --git a/judge/morpion_rec.ml b/judge/morpion_rec.ml
index 0741742..c7ca480 100644
--- a/judge/morpion_rec.ml
+++ b/judge/morpion_rec.ml
@@ -1,7 +1,6 @@
 open Core
 open Main
 
-let ( |> ) x f = f x
 
 module G = struct
   
@@ -76,21 +75,22 @@ module G = struct
     | l when List.exists ((=) Empty) l -> Empty
     | _ -> T
 
-
   (* setp0 : ('a, 'a, 'a) -> int -> 'a -> ('a, 'a, 'a) *)
   let setp0 (a, b, c) x v = match x with
     | 1 -> (v, b, c)
     | 2 -> (a, v, c)
     | 3 -> (a, b, v)
     | _ -> raise Invalid_pos
+
   (* setp1 : 'a morpion -> loc1 -> 'a -> ('a -> 'c) -> 'a morpion *)
   let setp1 (m, r) (px, py) v rf =
     let k = setp0 m px (setp0 (getp0 m px) py v) in
     (k, if r = Empty then reduce_m rf (k, r) else r)
     (* pourquoi ce if ? parce que si quelqu'un a déjà gagné un petit morpion,
-      alors même si l'adversaire aligne trois pions, le petit morpion lui
-      reste attribué... *)
-  (* setp2 : 'a morpion morpion -> loc2 -> 'a -> 'a morpion morpion *)
+      alors même si l'adversaire aligne trois cases dedans APRES,
+      le petit morpion reste attribué à la même personne. *)
+
+  (* setp : 'a morpion morpion -> loc2 -> 'a -> 'a morpion morpion *)
   let setp m (pg, pp) v =
     let im = setp1 (getp1 m pg) pp v (fun x -> x) in
     let om = setp1 m pg im reduct in