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

24-game: cleanup.

locals-and-roots
John Benediktsson 2016-04-18 20:48:20 -07:00
parent 1983a7131a
commit c3a9c96edb
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,8 @@
! 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 continuations io kernel math math math.parser prettyprint quotations random sequences shuffle
math.parser prettyprint quotations random sequences shuffle ; ;
IN: 24-game IN: 24-game
: nop ( -- ) ; : nop ( -- ) ;
@ -54,20 +53,22 @@ CONSTANT: (operators) { + - * / rot swap q }
bi ; bi ;
: end-game ( array -- ) : end-game ( array -- )
dup { 24 } = dup { 24 } = [
[ drop "You WON!" ] drop "You WON!"
[ first number>string " is not 24... You lose." append ] ] [
if print ; first number>string " is not 24... You lose." append
] if print ;
: (24-game) ( array -- ) : quit-game ( array -- )
dup length 1 = drop "you're a quitter" print ;
[ end-game ] [
dup last "quit" =
[ drop "you're a quitter" print ]
[ try-operator (24-game) ]
if
] if ;
: 24-game ( -- ) make-24 (24-game) ; : play-24 ( array -- )
{
{ [ dup length 1 = ] [ end-game ] }
{ [ dup last "quit" = ] [ quit-game ] }
[ try-operator play-24 ]
} cond ;
: 24-game ( -- ) make-24 play-24 ;
MAIN: 24-game MAIN: 24-game