steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences.extras: adding sift! and harvest!.

db4
John Benediktsson 2013-03-06 16:39:04 -08:00
parent 7e2ff8864f
commit 0fe01622de
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/sequences/extras/extras.factor
View File

@ -224,9 +224,15 @@ PRIVATE>
: sift-as ( seq exemplar -- newseq ) : sift-as ( seq exemplar -- newseq )
[ ] swap filter-as ; [ ] swap filter-as ;
: sift! ( seq -- newseq )
[ ] filter! ;
: harvest-as ( seq exemplar -- newseq ) : harvest-as ( seq exemplar -- newseq )
[ empty? not ] swap filter-as ; [ empty? not ] swap filter-as ;
: harvest! ( seq -- newseq )
[ empty? not ] filter! ;
: contains? ( seq elts -- ? ) : contains? ( seq elts -- ? )
[ member? ] curry any? ; inline [ member? ] curry any? ; inline