(*
  plusOuMoins.ml
  Plus or Minus game.
*)

let secretNumber = Random.int 101;;

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

let keepOn =
  (!enteredNumber <> secretNumber);;

let victory =
  (enterNumber == secretNumber);;

let minus =
  (secretNumber > enterNumber);;

let minusOrPlus =
  if minus then "It's less !\n" else "It's more !\n";;

let msg =
  if victory then "Congratulations, you found the secret number !" else minusOrPlus;;

let () =
  let enteredNumber = ref 101;
  while keepOn do
    enteredNumber := enterNumber;
    Printf.printf "%s" msg
  done

(*
ocamlopt -o plusOuMoins plusOuMoins.ml
File "plusOuMoins.ml", line 33, characters 0-0:
Error: Syntax error
*)