Guess the number/With feedback (player): Difference between revisions
Content deleted Content added
m MATLAB: More input options |
→{{header|Prolog}}: Added. |
||
Line 1,497:
My guess is 22,is this correct? =
I did it!</pre>
=={{header|Prolog}}==
<lang prolog>min(1). max(10).
pick_number(Min, Max) :-
min(Min), max(Max),
format('Pick a number between ~d and ~d, and I will guess it...~nReady? (Enter anything when ready):', [Min, Max]),
read(_).
guess_number(Min, Max) :-
Guess is (Min + Max) // 2,
format('I guess ~d...~nAm I correct (c), too low (l), or too high (h)? ', [Guess]),
repeat,
read(Score),
( Score = l -> NewMin is Guess + 1, guess_number(NewMin, Max)
; Score = h -> NewMax is Guess - 1, guess_number(Min, NewMax)
; Score = c -> writeln('I am correct!')
; writeln('Invalid input'),
false
).
play :-
pick_number(Min, Max),
guess_number(Min, Max).</lang>
Example:
<lang prolog>?- play.
Pick a number between 1 and 10, and I will guess it...
Ready? (Enter anything when ready):y.
I guess 5...
Am I correct (c), too low (l), or too high (h)? h.
I guess 2...
Am I correct (c), too low (l), or too high (h)? l.
I guess 3...
Am I correct (c), too low (l), or too high (h)? c.
I'm correct!
true</lang>
=={{header|PureBasic}}==
| |||