From f2641ef2a62654e31820e9549e1cace4c58845ae Mon Sep 17 00:00:00 2001
From: Thibaut Horel <thibaut.horel@gmail.com>
Date: Sat, 18 Jun 2011 17:28:28 +0200
Subject: Basic ltg progam.

Main loop reading opponent moves.
---
 ltg.ml | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 ltg.ml

(limited to 'ltg.ml')

diff --git a/ltg.ml b/ltg.ml
new file mode 100644
index 0000000..e5de957
--- /dev/null
+++ b/ltg.ml
@@ -0,0 +1,29 @@
+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 -> ())
+    | 2 -> Scanf.scanf "%d\n%s\n" (fun d s -> ())
+    | _ -> failwith "Wrong move number"
+)
+
+let play_move () = ()
+
+let do_round =
+    if me = 0
+    then fun () -> play_move (); read_move ()
+    else fun () -> read_move (); play_move ()
+              
+                
+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
-- 
cgit v1.2.3-70-g09d2