Guess the number/With feedback (player): Difference between revisions

{{task|Games}}

:The scorer will choose a number between set limits. The computer player will print a guess of the target number. The computer asks for a score of whether its guess is higher than, lower than, or equal to the target. The computer guesses, and the scorer scores, in turn, until the computer correctly guesses the target number.

 

The computer should guess intelligently based on the accumulated scores given. One way is to use a [[Binary search]] based algorithm.

 

 

=={{header|Ada}}==

 

procedure Guess_Number_Player is

procedure Guess_Number (Lower_Limit : Integer; Upper_Limit : Integer) is

end loop;

Guess_Number (Lower_Limit, Upper_Limit);

 

=={{header|AutoHotkey}}==

Works with the AutoHotkey entry at: [[Guess the number/With feedback]]

 

 

GetParams(LowerBound,UpperBound)

Else

Return, "Too High"

 

=={{header|C}}==

 

int main(){

 

return 0;

 

Demonstration (number is 57):

Awwwright</pre>

 

}

int main() {

return 0;

 

using System.Collections.Generic;

using System.Linq;

}

}

 

=={{header|Clojure}}==

 

 

(defn guess-game [low high]

\c (println "Huzzah!")

(do (println "Invalid input.")

Output

<pre>user=> (guess-game 1 100)

Huzzah!

</pre>

 

=={{header|Euphoria}}==

{{trans|PureBasic}}

include wildcard.e

 

puts(1,"I do not understand that...\n")

end if

 

=={{header|Fantom}}==

 

class Main

{

}

}

 

Example:

I got it correct - thankyou!

</pre>

 

=={{header|Fortran}}==

{{works with|Fortran|95 and later}}

implicit none

end select

end do

Output

<pre>Think of a number between 1 and 100 and I will try to guess it.

My guess is: 57 Score(h, l or c)?: c

I solved it!</pre>

=={{header|Go}}==

Go's binary search function (<code>sort.Search()</code>) is general enough to be able to do this type of task, as mentioned in the documentation for the function itself.[http://golang.org/pkg/sort/#Search]

 

import (

})

fmt.Printf("Your number is %d.\n", lower+answer)

 

Manual solution:

 

import (

}

}

 

=={{header|Icon}} and {{header|Unicon}}==

{{trans|Fantom}}

 

procedure main ()

lower_limit := 1

}

end

 

=={{header|J}}==

 

guess=:3 :0

'lo hi'=.y

end.

end.

 

Example session:

 

guessing a number between 1 and 100

is it 86? hi

guessing a number between 49 and 50

is it 49? lo

 

This could be made more efficient by replacing <code>guess=.lo+?hi-lo</code> with <code>guess=.<.-:lo+hi</code>. (The above example would have finished on the first guess, but the range 1..100 would never take more than 6 guesses -- the remaining answers would be determined after six guesses.)

A clever solution that uses the built-in binary search functions with a virtual list.

{{trans|Go}}

import java.util.Collections;

import java.util.Scanner;

System.out.printf("Your number is %d.\n", result);

}

 

=={{header|Modula-2}}==

 

IMPORT InOut;

InOut.WriteString ("Thanks for letting me play with you.");

InOut.WriteLn

Choose a number between 0 and 1000.

 

So the number is 600

Thanks for letting me play with you.</pre>

 

=={{header|Objective-C}}==

A clever solution that uses the built-in binary search functions with a virtual list.

 

@end

 

@implementation GuessNumberFakeArray

- (id)objectAtIndex:(NSUInteger)i {

scanf("%1s", input);

switch (tolower(input[0])) {

case 'l':

case 'h':

case 'c':

}

return nil;

 

int main(int argc, const char *argv[]) {

return 0;

 

=={{header|PARI/GP}}==

 

guessnumber2(b)={

my(c=0,d=b,a=0);

);

}

 

=={{header|Pascal}}==

 

var

writeln ('So the number is: ', guess:4);

writeln ('It was nice to play with you.');

Output:

<pre>:> ./GuessTheNumberPlayerFeedback

 

=={{header|Perl}}==

my $min = 1;

print "=>> Think of a number between $min and $max and I'll guess it!\n

Press <ENTER> when are you ready... ";

<STDIN>;

 

 

 

 

 

 

<pre>=>> Think of a number between 1 and 99 and I'll guess it!

 

I knew it! It took me only 5 tries.</pre>

 

 

=={{header|PicoLisp}}==

{{trans|PureBasic}}

(prinl "Think of a number between " Min " and " Max ".")

(prinl "On every guess of mine you should state whether my guess was")

("L" (setq Min Guess))

("=" (nil (prinl "I did it!")))

Output:

<pre>: (guessTheNumber 1 99)

My guess is 22,is this correct? =

I did it!</pre>

 

=={{header|PureBasic}}==

max=100

 

EndIf

ForEver

 

=={{header|Python}}==

 

print('''\

break

 

'''Sample Game-play'''

 

Thanks for keeping score.</pre>

 

Hacky solution using a fake list class and the <code>bisect</code> module from the standard library to do the binary search.

{{trans|Go}}

try: input = raw_input

except: pass

""" % (LOWER, UPPER))

result = bisect.bisect_left(GuessNumberFakeList(), 0, LOWER, UPPER)

 

=={{header|REXX}}==

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

</pre>

 

=={{header|Ruby}}==

Computer plays versus itself

print "guessing #{num}\t"

case is_it?(num)

when 1

puts "too high"

when -1

puts "too low"

else

puts "found the number in #{turns} turns."

end

 

 

puts "guess a number between #{low} and #{high}"

 

Example

guessing 29 too low

guessing 30 found the number in 7 turns.</pre>

 

=={{header|Scheme}}==

{{works with|Guile}}

 

(display "Enter a number from ")(display minimum)

(if (string= input "l") (begin (display "OK...")

(set! minimum (+ guess 1)))))

 

=={{header|Tcl}}==

set to 10

fconfigure stdout -buffering none

break

}

Sample run:

<pre>

Found it: 6

</pre>

 

{{omit from|GUISS}}