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

numbers-game: simplify for readability.

clean-linux-x86-64
John Benediktsson 2019-09-10 04:52:59 -07:00
parent 14d75bbbcb
commit bf84e85126
1 changed files with 12 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,39 +1,23 @@
USING: kernel math math.parser random io ; USING: combinators io kernel math.order math.parser random ;
IN: numbers-game IN: numbers-game
: 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." printfl ; "I'm thinking of a number between 0 and 100." print flush ;
: guess-prompt ( -- ) "Enter your guess: " writefl ; : guess-number ( -- n )
"Enter your guess: " write flush readln string>number ;
: too-high ( -- ) "Too high" printfl ; : correct? ( actual guess -- ? )
<=> {
: too-low ( -- ) "Too low" printfl ; { +lt+ [ "Too high" print flush f ] }
{ +eq+ [ "Correct - you win!" print flush t ] }
: correct ( -- ) "Correct - you win!" printfl ; { +gt+ [ "Too low" print flush f ] }
} case ;
: inexact-guess ( actual guess -- )
< [ too-high ] [ too-low ] if ;
: judge-guess ( actual guess -- ? )
2dup = [ 2drop correct f ] [ inexact-guess t ] if ;
: number-to-guess ( -- n ) 100 random ;
: numbers-game-loop ( actual -- ) : numbers-game-loop ( actual -- )
dup guess-prompt read-number judge-guess [ dup guess-number correct? not ] loop drop ;
[ numbers-game-loop ] [ drop ] if ;
: numbers-game ( -- ) : numbers-game ( -- )
guess-banner number-to-guess numbers-game-loop ; guess-banner 100 random numbers-game-loop ;
MAIN: numbers-game MAIN: numbers-game