Guess the number/With feedback (player): Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(Added solution for Action!) |
||
Line 59: | Line 59: | ||
Thanks for keeping score. |
Thanks for keeping score. |
||
</pre> |
|||
=={{header|Action!}}== |
|||
<lang Action!>PROC Main() |
|||
BYTE n,min=[1],max=[100] |
|||
CHAR c |
|||
PrintF("Think a number in range %B-%B%E",min,max) |
|||
DO |
|||
n=(max+min) RSH 1 |
|||
PrintF("My guess is %B%E",n) |
|||
PrintF("Is it (E)qual, (L)ower or (H)igher?") |
|||
c=GetD(7) |
|||
Put(c) PutE() |
|||
IF c='E THEN |
|||
Print("I guessed!") |
|||
EXIT |
|||
ELSEIF c='L THEN |
|||
max=n-1 |
|||
ELSEIF c='H THEN |
|||
min=n+1 |
|||
FI |
|||
IF max<min THEN |
|||
Print("You are cheating...") |
|||
EXIT |
|||
FI |
|||
OD |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Guess_the_number_with_feedback_(player).png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
Think a number in range 1-100 |
|||
My guess is 50 |
|||
Is it (E)qual, (L)ower or (H)igher?L |
|||
My guess is 25 |
|||
Is it (E)qual, (L)ower or (H)igher?L |
|||
My guess is 12 |
|||
Is it (E)qual, (L)ower or (H)igher?H |
|||
My guess is 18 |
|||
Is it (E)qual, (L)ower or (H)igher?L |
|||
My guess is 15 |
|||
Is it (E)qual, (L)ower or (H)igher?L |
|||
My guess is 13 |
|||
Is it (E)qual, (L)ower or (H)igher?E |
|||
I guessed! |
|||
</pre> |
</pre> |
||