# Number guessing game for R # This is a test program in R to demonstrate interactive # programming and the If and While control structures # This program must be started using the source() command NumGuess <- 0 # Initialise this symbol, used to count the number guesses Uname <- readline("What is your name? ") cat("Guess a number between 1 and a 100 ", Uname, "\n") ComNum <- as.integer(runif(1, min = 1, max = 100)) Guess <- as.integer(readline("Enter your guess: ")) NumGuess <- NumGuess + 1 while (ComNum != Guess) { if (Guess<ComNum) { cat("Your guess is too low!", "\n") } else { cat("Your guess is too high!", "\n") } Guess <- as.integer(readline("Please enter a new guess: ")) NumGuess <- NumGuess + 1 } cat(Uname,", you got it! ", "\n") cat("It took you ",NumGuess," guesses to guess right.", "\n") 

 % Guess what number for MATLAB 7.5.0 % rCX. 2009, public domain MIN = 1; MAX = 100; Plr_Guess = -1; while true() clc %Clear Command Window Randomed = uint8(rand() * ((MAX + 1) - MIN) + MIN); rounds = 0; disp(['Ok, i think random integer between ',num2str(MIN),' and ',num2str(MAX),'.']) disp('Your job is to guess what it is in as minimal tries as possible.') disp(' ') disp('After your every guess, ill give you hint is my number higher or lower than your guess.') disp('You can exit by ''guessing'' 0.') disp('Press any key to start game.') pause clc while true() rounds = rounds + 1; disp(['This is round number: ',num2str(rounds),'.']) Plr_Guess = str2num(input('Give your guess: ','s')); %'s' tells MATLAB to return input as string if Plr_Guess == 0 return %exit program elseif Plr_Guess > Randomed disp('My number is smaller...') elseif Plr_Guess < Randomed disp('My number is higher...') elseif Plr_Guess == Randomed break else return %exit program end disp(' ') end disp('You got it!!!') disp(['It took ',num2str(rounds),' rounds to guess right number.']) disp(' ') key = input('Do you want to play again? Enter ''y'' or ''n''. ','s'); if ~strcmp(key,'y') && ~strcmp(key,'Y') break end end 

 //the Ultimate Guessing Game (is that name proper English?) //By: Jarkko 'Jare' Linnanvirta 2007 (e-mail me if you want to ask something: kpelit2003@hotmail.com) //Can be used freely. 'The very important title SetWindow "the Ultimate Guessing Game!" 'Start by randomizing a number theNumber = Rand(1,100) Repeat Text 0,0, "Guess what number I am thinking (1 - 100)" 'Show console for user's ansrver Locate 0, ScreenHeight()-20 ansver = Input("? ") 'Check ansver when user hit's enter If KeyHit(cbKeyReturn) Then times + 1 If ansver = theNumber Then 'User got it right Text 0,20, "Yes, that's what I was thinking!" Text 0,40, "You tried "+times+" times." DrawScreen WaitKey theNumber = Rand(1,100) times = 0 ElseIf ansver < theNumber Then 'User got it wrong Text 0,20, "No, too low!" DrawScreen WaitKey Else 'User got it wrong again Text 0,20, "No, too high!" DrawScreen WaitKey End If CloseInput 'Clear ansver in console End If DrawScreen 'Update screen so we can see something Forever 'Eternal loop (of course there is an inbuild safe exit feature: Escape key closes the program) 

 { Guess program. public domain as of august 13th 2007. Mystikshadows } Program GuessingGame; Uses Crt; Const RandomMinimum = 1; RandomMaximum = 100; Var RandomNumber: Integer; UserGuess: Integer; UserAnswer: Char; RoundNumber: Integer; CanExit: Integer; CancelGuessing: Integer; Begin Randomize; CanExit := 0; While CanExit = 0 Do Begin RandomNumber := Random(RandomMaximum) + 1; WriteLn('Ok, I just thought of a number between ', RandomMinimum, ' and ', RandomMaximum); WriteLn('And you can try to guess it in the least amount of tries.'); WriteLn; WriteLn('After each guess I will give you hints as to if my number is'); WriteLn('higher or lower than your guess again or enter 0 to exit the'); WriteLn('current guessing.'); WriteLn; RoundNumber := 1; CancelGuessing := 0; UserGuess := 0; UserAnswer := #32; While (RandomNumber <> UserGuess) And (CancelGuessing = 0) Do Begin Write('Round # ', RoundNumber, ': '); ReadLn(UserGuess); If (UserGuess = 0) Then CancelGuessing := 1; If (UserGuess > RandomNumber) Then WriteLn('You are too high, guess lower.'); If (UserGuess < RandomNumber) Then WriteLn('You are too low, guess higher.'); RoundNumber := RoundNumber + 1; End; If RandomNumber = UserGuess Then Begin WriteLn; WriteLn('You guess the number in ', RoundNumber - 1, ' guesses.'); End; While (UserAnswer <> 'y') And (UserAnswer <> 'Y') And (UserAnswer <> 'n') And (UserAnswer <> 'N') Do Begin WriteLn; Write('Do you want to try another round (Y for Yes, N for No)?'); ReadLn(UserAnswer); End; If (UserAnswer = 'n') Or (UserAnswer = 'N') Then CanExit := 1; End; End. 

 #! /usr/bin/python import random, os To get right keyword to clear screen for linux or windows usr_os = os.name if usr_os != "POSIX": clear_screen = "clear" else: clear_screen = "cls" # lets get random number to guess rand_number = random.randint(1,100) # ok, we reset round counter and value of user guess. round_counter = guessed = 0 # ok, "main" loop of game while guessed != rand_number: os.system(clear_screen) round_counter = round_counter + 1 print "This is round number:", round_counter print rand_number #ok, now we can see the number to make testing easier. guessed = input ("What is your guess?") if guessed < rand_number: print "Sorry, try higher number." elif guessed > rand_number: print "No, try smaller number." elif guessed < 1 or guessed > 100: print "Value must be between 1 to 100" else: print "Error in given value." raw_input ("Press <ENTER> to continue!") print "Correct number." print print "Random number was:", rand_number, " and your guess was:", guessed, "." print print "It took:", round_counter, " rounds to guess it." print "Thank you for playing." 

 ' Guess what number for FreeBASIC .17b stable ' E.K.virtanen. 2007, public domain Randomize TIMER CONST MIN = 1 CONST MAX = 100 Dim AS Integer Plr_guess, Randomed, Rounds ' Main module of program. DO Color 15, 0 : CLS Randomed = INT(RND * ((MAX + 1) - MIN) + MIN) Rounds = 0 Print "Ok, i think random number between "; MIN; MAX; "." Print "Your job is to guess what it is in as minimal tries as possible." Print "" Print "After your every guess, ill give you hint is my number higher or lower than your guess." Print "You can exit by 'guessing' 0." Print "Press any key to start game."; : GETKEY ' From here starts the gaming loop itself. This is looped until guess it right one. CLS DO Rounds = (Rounds + 1) Print "This is round number: "; Rounds; "." INPUT "Give your guess: "; Plr_guess Color 14, 0 IF Plr_guess > Randomed THEN Print "My number is smaller..." END IF IF Plr_guess < Randomed THEN Print "My number is higher..." END IF Color 15, 0 IF Plr_guess = Randomed THEN EXIT DO LOOP While Plr_Guess <> 0 IF Randomed <> Plr_Guess THEN EXIT DO Print "You got it!!!" Print "It took "; Rounds; " rounds to guess right number." Print "" Print "Press 'y' to play again. Any other key to quit." DO Until INKEY$ <> "" : Loop IF INKEY$ <> "y" AND INKEY$ <> "Y" THEN EXIT DO Loop END 

 # Guess what number for python. My one of first python codes so it prolly looks ugly as hell. # E.K.virtanen. 2007, public domain # modules we need here import random import os # function wich solves what OS is used. linux and windows regignized. def os_clear(): return_value = "\n" if os.name == "posix": return_value = 'clear' elif os.name in ("nt", "dos", "ce"): return_value = 'CLS' return return_value # Constant variables const_min = 1 const_max = 100 clear_screen = os_clear() # MAIN MODULE OF PROGRAM guess_game = end_game = 'play' while end_game == 'play': os.system(clear_screen) randomed = random.randint(const_min, const_max) rounds = 0 print print 'Ok, i think random number between ', str(const_min), ' to ' + str(const_max) print 'Your job is to guess what it is in as minimal tries as possible.' print '' print 'After your every guess, ill give you hint is my number higher or lower than your guess.' print 'You can exit by "guessing" (0).' raw_input('Press <ENTER> to start game.') # guessing part of game os.system(clear_screen) while guess_game == 'play': rounds += 1 print 'This is rounds number: ', str(rounds) + '.' print plr_guess = int(raw_input('Give your guess: ')) if int(plr_guess) < randomed: print 'My number is higher...' elif int(plr_guess) > randomed: print 'Mu number is lower...' elif int(plr_guess) == randomed: guess_game = 'stop' elif int(plr_guess) == 0: break else: print 'Give value between ', str(const_min), ' to ' + str(const_max), ' please.' if guess_game == 'stop': end_game = 'stop' os.system(clear_screen) print 'You got it!' print 'It took ', str(rounds), ' rounds to guess right number.' print print ' Press <y> + <ENTER> to play again. <ENTER> only to quit.' if raw_input() == 'y': guess_game = end_game = 'play'