Task

Write a program where the program chooses a number between   1   and   10.

A player is then prompted to enter a guess.   If the player guesses wrong,   then the prompt appears again until the guess is correct.

When the player has made a successful guess the computer will issue a   "Well guessed!"   message,   and the program exits.

A   conditional loop   may be used to repeat the guessing until the user is correct.



Related tasks

   Bulls and cows
   Bulls and cows/Player
   Guess the number/With Feedback
   Mastermind


% Implemented by Arjun Sunel
-module(guess_the_number).
-export([main/0]).
 
main() ->
	io:format("Guess my number between 1 and 10 until you get it right:\n"),
	N = random:uniform(10),
	guess(N).
 
guess(N) ->
	{ok, [K]} = io:fread("Guess number :  ","~d"),
 
	if 
		K=:=N ->
			io:format("Well guessed!!\n");
		true -> 
			guess(N)	
	end.	
 