diff --git a/extra/24-game/24-game.factor b/extra/24-game/24-game.factor index 60f180877f..28600b6c48 100644 --- a/extra/24-game/24-game.factor +++ b/extra/24-game/24-game.factor @@ -8,7 +8,6 @@ arrays words quotations accessors math.parser backtrack assocs ; IN: 24-game SYMBOL: commands : nop ( -- ) ; -: spin ( a b c -- c b a ) swapd swap swap ; : do-something ( a b -- c ) { + - * } amb-execute ; : maybe-swap ( a b -- a b ) { nop swap } amb-execute ; : some-rots ( a b c -- a b c )