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

sequences.extras: adding map-sift and map-harvest.

John Benediktsson 2012-04-25 15:58:18 -07:00
parent f5bc92f621
commit 555b086211
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

@ -133,3 +133,9 @@ IN: sequences.extras
: map-filter ( ... seq quot: ( ... elt -- ... newelt ) quot: ( ... newelt -- ... ? ) -- ... subseq ) : map-filter ( ... seq quot: ( ... elt -- ... newelt ) quot: ( ... newelt -- ... ? ) -- ... subseq )
pick map-filter-as ; inline pick map-filter-as ; inline
: map-sift ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq )
[ ] map-filter ; inline
: map-harvest ( ... seq quot: ( ... elt -- ... newelt ) -- ... newseq )
[ empty? not ] map-filter ; inline