diff options
Diffstat (limited to 'src/ltg.ml')
| -rw-r--r-- | src/ltg.ml | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/src/ltg.ml b/src/ltg.ml new file mode 100644 index 0000000..c3b7637 --- /dev/null +++ b/src/ltg.ml @@ -0,0 +1,56 @@ +open Game + +let _ = if Array.length Sys.argv < 2 then begin + Printf.printf "You must specify the player number\n"; + exit 1 +end + +let me = int_of_string Sys.argv.(1) + +let opponent = match me with + | 0 -> 1 + | 1 -> 0 + | _ -> failwith "Wrong player_number" + +let read_move () = Scanf.scanf "%d\n" (fun d -> match d with + | 1 -> Scanf.scanf "%s\n%d\n" (fun s d -> + Game.left_apply opponent (card_of_string s) d) + | 2 -> Scanf.scanf "%d\n%s\n" (fun d s -> + Game.right_apply opponent (card_of_string s) d) + | _ -> failwith "Wrong move number" +) + +(* important print newline to flush output *) +let play_move () = + Printf.printf "2"; + print_newline (); + Printf.printf "1"; + print_newline(); + Printf.printf "zero"; + print_newline () + +let automatic player = + let aux i slot = + if slot.vitality = -1 then begin + Game.right_apply_bis player I i; + slot.vitality <- 0; + slot.field <- id + end + in + if player = 0 then + Array.iteri aux player0 + else + Array.iteri aux player1 + +let do_round = + if me = 0 + then fun () -> automatic 0; play_move (); automatic 1; read_move () + else fun () -> automatic 0; read_move (); automatic 1; play_move () + + +let _ = + let round = ref 1 in + while !round <= 100000 do + do_round (); + incr round + done
\ No newline at end of file |