diff options
| -rw-r--r-- | Makefile | 32 | ||||
| -rw-r--r-- | ltg.ml | 13 |
2 files changed, 43 insertions, 2 deletions
diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..98262de --- /dev/null +++ b/Makefile @@ -0,0 +1,32 @@ +OCAMLC=ocamlc.opt +OCAMLOPT=ocamlopt.opt +OCAMLDEP=ocamldep.opt +INCLUDES= +OCAMLFLAGS=$(INCLUDES) +SRCS=game.ml ltg.ml +BUILDDIR= +DEPEND=.depend + +all: ltg.opt + +ltg.opt: ltg.cmx + $(OCAMLOPT) $(OCAMLFLAGS) -o ltg game.cmx ltg.cmx + +clean: + rm -f *.cm? *.cmx? *.o *~ + rm -f .depend + +depend: $(SRCS) + $(OCAMLDEP) $(SRCS) > $(DEPEND) + +.SUFFIXES: .mli .ml .cmo .cmi .cmx + +%.cmo : %.ml + $(OCAMLC) -c $(OCAMLFLAGS) $< +%.cmi : %.mli + $(OCAMLC) -c $(OCAMLFLAGS) $< +%.cmx : %.ml + $(OCAMLOPT) -c $(OCAMLFLAGS) $< + +-include $(DEPEND) + @@ -1,3 +1,10 @@ +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 @@ -6,8 +13,10 @@ let opponent = match me with | _ -> 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 -> ()) + | 1 -> Scanf.scanf "%s\n%d\n" (fun s d -> + Cards.left_apply opponent (card_of_string s) d) + | 2 -> Scanf.scanf "%d\n%s\n" (fun d s -> + Cards.right_apply opponent (card_of_string s) d) | _ -> failwith "Wrong move number" ) |