steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

number-game: need to flush the output

modern-harvey2
Björn Lindqvist 2017-07-03 00:13:06 +02:00
parent c294170321
commit 94cd8f89f9
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
extra/numbers-game/numbers-game.factor
View File

@ -1,14 +1,25 @@
USING: kernel math math.parser random io ; USING: kernel math math.parser random io ;
IN: numbers-game IN: numbers-game
: read-number ( -- n ) readln string>number ; : printfl ( s -- )
print flush ;
: writefl ( s -- )
write flush ;
: read-number ( -- n )
readln string>number ;
: guess-banner ( -- ) : guess-banner ( -- )
"I'm thinking of a number between 0 and 100." print ; "I'm thinking of a number between 0 and 100." printfl ;
: guess-prompt ( -- ) "Enter your guess: " write ;
: too-high ( -- ) "Too high" print ; : guess-prompt ( -- ) "Enter your guess: " writefl ;
: too-low ( -- ) "Too low" print ;
: correct ( -- ) "Correct - you win!" print ; : too-high ( -- ) "Too high" printfl ;
: too-low ( -- ) "Too low" printfl ;
: correct ( -- ) "Correct - you win!" printfl ;
: inexact-guess ( actual guess -- ) : inexact-guess ( actual guess -- )
< [ too-high ] [ too-low ] if ; < [ too-high ] [ too-low ] if ;