The Number guessing game is all about guessing the number randomly chosen by the computer in given number of chances.
Functions to be used :
- rand n : This function used to generate a random number between 0 to n. And this function always returns the floating point number. So its result is converted to integer value explicitly.
- Chomp() : This function is used to remove the newline character from the user input.
In the program, while loop runs until the number guessed by the user is equal to the generated number or the number of attempts are less than the maximum number of chances. If the number of attempts becomes greater than the number of chances the game stops and the user loses the game. If the user guesses the correct number in given number of chances then he or she will win. After every guess made by the user, the program informs the user whether the guessed number was smaller, greater than the actual generated number.
In this code, initially, rand function chooses a random number as x. The function (rand k) finds a random number between 0 and k. As this random number is a floating point number, so “int” is used to convert it explicitly to the whole number. x stores the whole number. The user is given a specific number of chances to guess the number if the chances exceed the user guesses the user would lose.
Below is the implementation :
5 6 8 9
Number guessing game Guess a number (between 0 and 10): Your guess was too low, guess a higher number than 5 Your guess was too low, guess a higher number than 6 Your guess was too low, guess a higher number than 8 You Guessed Correct! The number was 9
Note: In above program user can modify the value of rand function to increase the range of numbers in this game and also user can increase the number of chances by increasing the value of the chance variable.
- Perl | Number and its Types
- Perl | Getting the Number of Elements of an Array
- Perl | Basic Syntax of a Perl Program
- Perl | Automatic String to Number Conversion or Casting
- Perl vs C/C++
- Perl | lt operator
- Perl | my keyword
- Perl | last in loop
- Perl | Hashes
- Perl | ord() Function
- Perl | References
- Perl | sin() Function
- Perl | each() Function
- Packages in Perl
- Perl | next operator
If you like GeeksforGeeks and would like to contribute, you can also write an article using contribute.geeksforgeeks.org or mail your article to firstname.lastname@example.org. See your article appearing on the GeeksforGeeks main page and help other Geeks.
Please Improve this article if you find anything incorrect by clicking on the "Improve Article" button below.