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

24-game: fixing game to use formatting vocab

locals-and-roots
Björn Lindqvist 2016-06-16 23:28:02 +02:00
parent 6a76bf9084
commit eeaffb14b8
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/24-game/24-game.factor
View File

@ -1,8 +1,7 @@
! Copyright © 2008 Reginald Keith Ford II ! Copyright © 2008 Reginald Keith Ford II
! 24, the Factor game! ! 24, the Factor game!
USING: accessors backtrack combinators continuations io kernel USING: accessors backtrack combinators continuations formatting io
math math.parser prettyprint quotations random sequences shuffle kernel math prettyprint quotations random sequences shuffle ;
;
IN: 24-game IN: 24-game
: nop ( -- ) ; : nop ( -- ) ;
@ -43,9 +42,9 @@ CONSTANT: (operators) { + - * / rot swap q }
[ name>> = ] with find nip ; [ name>> = ] with find nip ;
: get-operator ( operators -- word ) : get-operator ( operators -- word )
"Operators: " write dup pprint nl flush dup "Operators: %u\n" printf flush
readln over find-operator dup readln over find-operator dup
[ "Command not found..." print get-operator ] unless nip ; [ "Operator not found..." print get-operator ] unless nip ;
: try-operator ( array -- array ) : try-operator ( array -- array )
[ pprint nl ] [ pprint nl ]
@ -53,10 +52,10 @@ CONSTANT: (operators) { + - * / rot swap q }
bi ; bi ;
: end-game ( array -- ) : end-game ( array -- )
dup { 24 } = [ first dup 24 = [
drop "You WON!" drop "You WON!"
] [ ] [
first number>string " is not 24... You lose." append "%d is not 24... You lose." sprintf
] if print ; ] if print ;
: quit-game ( array -- ) : quit-game ( array -- )