Anonymous user
Guess the number/With feedback: Difference between revisions
m
→{{header|REXX}}: changed/added comments and whitespace, changed indentations.
m (added whitespace before the TOC (table of contents), added a C.f. (bold) header.) |
m (→{{header|REXX}}: changed/added comments and whitespace, changed indentations.) |
||
Line 2,567:
=={{header|REXX}}==
To make the program more engaging, randomized words for the hint are used.
<lang rexx>/*REXX program
low= 1 /*the lower range for the guessing game
high=100 /* " upper
try= 0 /*the number of valid (guess) attempts.
r=random(1, 100) /*get a random
lows= 'too_low too_small too_little below under underneath too_puny'
highs= 'too_high too_big too_much above over over_the_top too_huge'
prompt=centre(@gtn low 'and' high '(inclusive) ───or─── Quit:', 79, "─")
/* [↓] by 0 --- used to LEAVE aloop.*/
do ask=0 by 0; say; say prompt; say; pull g; g=space(g); say
do validate=0 by 0
select
when g=='' then iterate ask
when abbrev('QUIT',g,1) then exit /*what a whoos.*/
when words(g)\==1 then say
when \datatype(g,'N') then say
when \datatype(g,'W') then say
when g<low then say
when g>high then say
otherwise leave /*validate*/
end /*select*/
iterate ask
Line 2,595:
try=try+1
if g=r then leave
if g>r then what=word(highs, random(1, words(highs)))
else what=word( lows, random(1, words( lows)))
say 'your guess of' g "is" translate(what'.', , "_")
end /*ask*/
if try==1 then say 'Gadzooks!!! You guessed the number right away!'
else say 'Congratulations!, you guessed the number in ' try " tries."
/*stick a fork in it, we're all done. */</lang>
=={{header|Ring}}==
| |||