From 0fe01622de6cce7ad98cca8435ed3e24e9ae834d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 6 Mar 2013 16:39:04 -0800 Subject: [PATCH] sequences.extras: adding sift! and harvest!. --- extra/sequences/extras/extras.factor | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 859d8e9b41..605d5555e1 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -224,9 +224,15 @@ PRIVATE> : sift-as ( seq exemplar -- newseq ) [ ] swap filter-as ; +: sift! ( seq -- newseq ) + [ ] filter! ; + : harvest-as ( seq exemplar -- newseq ) [ empty? not ] swap filter-as ; +: harvest! ( seq -- newseq ) + [ empty? not ] filter! ; + : contains? ( seq elts -- ? ) [ member? ] curry any? ; inline