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

let secretNumber = Random.int 101;;

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

let keepOn n =
  (n <> secretNumber);;

let victory n =
  (n == secretNumber);;

let minus n =
  (secretNumber > n);;

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

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

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