Guess the number: Difference between revisions
(→{{header|C++}}: added Fortran) |
|||
Line 132: | Line 132: | ||
Guess: 2 |
Guess: 2 |
||
Well guessed!</lang> |
Well guessed!</lang> |
||
=={{header|Lua}}== |
|||
<lang lua>math.randomseed( os.time() ) |
|||
n = math.random( 1, 10 ) |
|||
print( "I'm thinking of a number between 1 and 10. Try to guess it: " ) |
|||
repeat |
|||
x = tonumber( io.read() ) |
|||
if x == n then |
|||
print "Well guessed!" |
|||
else |
|||
print "Guess again: " |
|||
end |
|||
until x == n</lang> |
|||
=={{header|OCaml}}== |
=={{header|OCaml}}== |
Revision as of 20:11, 20 November 2010
You are encouraged to solve this task according to the task description, using any language you may know.
The task is to write a program where the program chooses a number between 1 and 10. The player is then prompted to enter a guess. If the player guesses wrong then they are prompted again until their guess is correct. When the user has made a successful guess the computer will give a "Well guessed!" message, and the program will exit.
A conditional loop may be used to repeat the guessing until the user is correct.
C.f: Guess the number/With Feedback, Bulls and cows
BASIC
ZX Spectrum Basic
The ZX Spectrum does not have conditional loop constructs. We emulate that here using IF and GO TO <lang zxbasic>10 LET n=INT (RND*10)+1 20 PRINT "I have thought of a number." 30 PRINT "Try to guess it!" 40 INPUT "Enter your guess: ";g 50 IF g=n THEN GO TO 100 60 PRINT "Your guess was wrong. Try again!" 70 GO TO 40
100 PRINT "Well done! You guessed it." 110 STOP</lang>
C
<lang c>#include <stdlib.h>
- include <stdio.h>
- include <time.h>
int main(void) {
int n; int g; srand((unsigned int)time(NULL)); n = 1 + (rand() % 10); puts("I'm thinking of a number between 1 and 10."); puts("Try to guess it!"); while (1) { (void) scanf("%d", &g); if (g == n) { break; } else { puts("That's not my number."); puts("Try another guess!"); } } puts("You have won!"); return 0;
}</lang>
C++
<lang cpp>#include <iostream>
- include <cstdlib>
- include <ctime>
int main() {
srand(time(0)); int n = 1 + (rand() % 10); int g; std::cout << "I'm thinking of a number between 1 and 10.\nTry to guess it! "; while(true) { std::cin >> g; if (g == n) break; else std::cout << "That's not my number.\nTry another guess! "; } std::cout << "You've guessed my number!"; return 0;
}
</lang>
Fortran
<lang fortran>program guess_the_number
implicit none
integer :: guess real :: r integer :: i, clock, count, n integer,dimension(:),allocatable :: seed
real,parameter :: rmax = 10
!initialize random number generator:
call random_seed(size=n) allocate(seed(n)) call system_clock(count) seed = count call random_seed(put=seed) deallocate(seed)
!pick a random number between 1 and rmax:
call random_number(r) !r between 0.0 and 1.0 i = int((rmax-1.0)*r + 1.0) !i between 1 and rmax
!get user guess:
write(*,'(A)') 'Im thinking of a number between 1 and 10.' do !loop until guess is correct
write(*,'(A)',advance='NO') 'Enter Guess: ' read(*,'(I5)') guess if (guess==i) exit write(*,*) 'Sorry, try again.'
end do
write(*,*) 'Youve guessed my number!'
end program guess_the_number </lang>
J
<lang j>require 'misc' game=: verb define
n=: 1 + ?10 smoutput 'Guess my integer, which is bounded by 1 and 10' whilst. -. guess -: n do. guess=. {. 0 ". prompt 'Guess: ' if. 0 -: guess do. 'Giving up.' return. end. smoutput (guess=n){::'no.';'Well guessed!' end.
)</lang>
Example session:
<lang> game Guess my integer, which is bounded by 1 and 10 Guess: 1 no. Guess: 2 Well guessed!</lang>
Lua
<lang lua>math.randomseed( os.time() ) n = math.random( 1, 10 )
print( "I'm thinking of a number between 1 and 10. Try to guess it: " )
repeat
x = tonumber( io.read() )
if x == n then
print "Well guessed!"
else
print "Guess again: "
end
until x == n</lang>
OCaml
<lang ocaml>#!/usr/bin/ocaml
let () =
Random.self_init(); let n = if Random.bool () then let n = 2 + Random.int 8 in print_endline "Please guess a number between 1 and 10 excluded"; (n) else let n = 1 + Random.int 10 in print_endline "Please guess a number between 1 and 10 included"; (n) in let rec loop () = let maybe = read_int() in if maybe = n then print_endline "Well guessed!" else begin print_endline "The guess was wrong! Please try again!"; loop () end in loop ()</lang>
PureBasic
<lang PureBasic>TheNumber=Random(9)+1
Repeat
Print("Guess the number: ")
Until TheNumber=Val(Input())
PrintN("Well guessed!")</lang>
REXX
version 1
<lang rexx>#!/usr/bin/rexx /* Guess the number */
number = random(1,10) say "I have thought of a number. Try to guess it!"
guess=0 /* We don't want a valid guess, before we start */
do while guess \= number
pull guess if guess \= number then say "Sorry, the guess was wrong. Try again!" /* endif - There is no endif in rexx. */
end
say "Well done! You guessed it!" </lang>
version 2
<lang rexx> ?=random(1,10) say 'Try to guess a number between 1 --> 10 (inclusive).'
do j=1 while g\==? if j\==1 then say 'Try again.' pull g end
say 'Well guessed!' </lang>
Ruby
<lang ruby> target = rand( 10 ) + 1 print 'I have thought of a number. Try to guess it! ' until gets.to_i == target
print 'Your guess was wrong. Try again! '
end puts 'Well done! You guessed it.' </lang>
Tcl
<lang tcl>set target [expr {int(rand()*10 + 1)}] puts "I have thought of a number." puts "Try to guess it!" while 1 {
puts -nonewline "Enter your guess: " flush stdout gets stdin guess if {$guess == $target} {
break
} puts "Your guess was wrong. Try again!"
} puts "Well done! You guessed it."</lang> Sample output:
I have thought of a number. Try to guess it! Enter your guess: 1 Your guess was wrong. Try again! Enter your guess: 2 Your guess was wrong. Try again! Enter your guess: 3 Your guess was wrong. Try again! Enter your guess: 8 Well done! You guessed it.
UNIX Shell
<lang sh>#!/bin/sh
- Guess the number
- This simplified program does not check the input is valid
number=`awk 'BEGIN{print int(rand()*10+1)}'` # We use ask to get a random number echo 'I have thought of a number. Try to guess it!' guess='0' # We don't want a valid guess, before we start while [ "$guess" -ne "$number" ] do
read guess if [ "$guess" -ne "$number" ]; then echo 'Sorry, the guess was wrong! Try again!' fi
done echo 'Well done! You guessed it.'</lang>