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

sequences.extras: adding index-selector.

db4
John Benediktsson 2013-05-20 17:43:26 -07:00
parent 3ac3c69ab4
commit 2a846cfff9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,6 +95,9 @@ PRIVATE>
: index-selector-for ( quot exemplar -- selector accum ) : index-selector-for ( quot exemplar -- selector accum )
[ length ] keep (index-selector-for) ; inline [ length ] keep (index-selector-for) ; inline
: index-selector ( quot -- selector accum )
V{ } index-selector-for ; inline
: filter-index-as ( ... seq quot: ( ... elt i -- ... ? ) exemplar -- ... seq' ) : filter-index-as ( ... seq quot: ( ... elt i -- ... ? ) exemplar -- ... seq' )
pick length over [ (index-selector-for) [ each-index ] dip ] 2curry dip like ; inline pick length over [ (index-selector-for) [ each-index ] dip ] 2curry dip like ; inline