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

fix 24-game compile error

db4
Doug Coleman 2009-02-06 16:53:41 -06:00
parent 01f6c5a7f6
commit 71d176716b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,7 +15,8 @@ SYMBOL: commands
{ nop rot -rot swap spin swapd } amb-execute ; { nop rot -rot swap spin swapd } amb-execute ;
: makes-24? ( a b c d -- ? ) : makes-24? ( a b c d -- ? )
[ [
2 [ some-rots do-something ] times some-rots do-something
some-rots do-something
maybe-swap do-something maybe-swap do-something
24 = 24 =
] ]
@ -60,4 +61,4 @@ DEFER: check-status
: 24-able ( -- vector ) build-quad dup 24-able? [ drop build-quad ] unless ; : 24-able ( -- vector ) build-quad dup 24-able? [ drop build-quad ] unless ;
: set-commands ( -- ) { + - * / rot swap q } commands set ; : set-commands ( -- ) { + - * / rot swap q } commands set ;
: play-game ( -- ) set-commands 24-able repeat ; : play-game ( -- ) set-commands 24-able repeat ;
MAIN: play-game MAIN: play-game