diff options
Diffstat (limited to 'ltg.ml')
| -rw-r--r-- | ltg.ml | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -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 |