24-game: add division operation.

2012-06-20 17:55:11 -07:00 · 2012-06-20 17:55:11 -07:00 · 781c60cfe7
parent 2dfa80c71e
commit 781c60cfe7
1 changed files with 3 additions and 1 deletions
--- a/extra/24-game/24-game.factor
+++ b/extra/24-game/24-game.factor
@ -8,8 +8,10 @@ IN: 24-game

 : nop ( -- ) ;

+: ?/ ( a b -- c ) [ drop 1/0. ] [ / ] if-zero ;
+
 : do-operation ( a b -- c )
-    { + - * } amb-execute ;
+    { + - * ?/ } amb-execute ;

 : permute-2 ( a b -- a b )
    { nop swap } amb-execute ;