From aa2a166a535012ec143f1280d6d49051f2d7dc67 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 15 Jul 2012 09:17:31 -0700 Subject: [PATCH] sequences.extras: adding a contains? (a faster sequence intersects?). --- extra/sequences/extras/extras.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 6805f7a268..f13f99f8cf 100644 --- 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