moreOrLess.ml

(*
  moreOrLess.ml
  More or Less game.
*)

(* chooses the random number *)
let secretNumber =
  Random.self_init();
  Random.int 100;;

(* asks the player what's the secret number *)
let enterNumber () =
  print_string "What's the secret number ? ";
  read_int () ;;

(* chooses the message to display *)
let msg enteredNumber =
  if enteredNumber == secretNumber then "Congratulations, you have found the secret number !\n"
  else begin
    if (secretNumber < enteredNumber) then "It's less !\n" else "It's more !\n";
  end

let () =
  (* sets enteredNumber to secretNumber + 1, thus they're not equal*)
  let enteredNumber = ref (secretNumber + 1) in
  (* as long as the user didn't guess the secretNumber *)
  while !enteredNumber <> secretNumber do
    (* asks and reads the number *)
    enteredNumber := enterNumber ();
    (* displays result *)
    Printf.printf "%s" (msg !enteredNumber);
  done