Add amb-all and bag-of

2009-05-24 15:43:28 +02:00 · 2009-05-24 15:43:28 +02:00 · cbef12c629
parent 1b9b27213d
commit cbef12c629
1 changed files with 6 additions and 0 deletions
--- a/extra/backtrack/backtrack.factor
+++ b/extra/backtrack/backtrack.factor
@ -71,3 +71,9 @@ MACRO: amb-execute ( seq -- quot )

 : cut-amb ( -- )
    f failure set ;
+
+: amb-all ( quot -- )
+    [ { t f } amb [ call fail ] [ drop ] if ] amb-preserve ; inline
+
+: bag-of ( quot -- seq )
+    V{ } clone [ '[ @ _ push ] amb-all ] keep ; inline