Add exception filtering in left and right apply

1 files changed, 8 insertions, 3 deletions

diff --git a/ltg.ml b/ltg.ml
index 1da6295..1b7c329 100644
--- a/ltg.ml
+++ b/ltg.ml
@@ -20,7 +20,14 @@ let read_move () = Scanf.scanf "%d\n" (fun d -> match d with
     | _ -> failwith "Wrong move number"
 )
 
-let play_move () = ()
+(* important print newline to flush output *)
+let play_move () =
+    Printf.printf "1";
+    print_newline ();
+    Printf.printf "I";
+    print_newline();
+    Printf.printf "1";
+    print_newline ()
 
 let automatic player =
     let aux i slot =
@@ -44,8 +51,6 @@ let do_round =
 let _ =
     let round = ref 1 in
     while !round <= 100000 do
-        Printf.printf "Round %d\n========" !round;
-        print_newline ();
         do_round ();
         incr round
     done
\ No newline at end of file