sequences.extras: adding sift! and harvest!.
parent
7e2ff8864f
commit
0fe01622de
extra/sequences/extras
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue