sequences.extras: adding a contains? (a faster sequence intersects?).

2012-07-15 09:17:31 -07:00 · 2012-07-15 09:17:31 -07:00 · aa2a166a53
parent d31ece5dd0
commit aa2a166a53
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -195,3 +195,6 @@ PRIVATE>

 : harvest-as ( seq exemplar -- newseq )
    [ empty? not ] swap filter-as ;
+
+: contains? ( seq elts -- ? )
+    [ member? ] curry any? ; inline