Removed helper functions from benchmark.backtrack

db4
William Schlieper 2008-07-16 07:10:45 -04:00
parent 2b9df400af
commit cac7ffdc3c
1 changed files with 0 additions and 12 deletions
extra/benchmark/backtrack

12
extra/benchmark/backtrack/backtrack.factor Normal file → Executable file
View File

@ -12,18 +12,6 @@ IN: benchmark.backtrack
: nop ;
MACRO: amb-execute ( seq -- quot )
[ length ] [ <enum> [ 1quotation ] assoc-map ] bi
'[ , amb , case ] ;
: if-amb ( true false -- )
[
[ { t f } amb ]
[ '[ @ require t ] ]
[ '[ @ f ] ]
tri* if
] with-scope ; inline
: do-something ( a b -- c )
{ + - * } amb-execute ;