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

sequences.extras: Add {filter,reject}-{keys,values}

master
Doug Coleman 2020-07-19 10:40:27 -05:00
parent d1782a23cc
commit 2c488736e4
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -617,6 +617,18 @@ PRIVATE>
: map-values ( assoc quot: ( value -- value' ) -- assoc )
'[ swap _ dip swap ] assoc-map ; inline
: filter-keys ( assoc quot: ( key -- key' ) -- assoc' )
'[ drop @ ] assoc-filter ; inline
: filter-values ( assoc quot: ( value -- value' ) -- assoc' )
'[ nip @ ] assoc-filter ; inline
: reject-keys ( assoc quot: ( key -- key' ) -- assoc' )
'[ drop @ ] assoc-reject ; inline
: reject-values ( assoc quot: ( value -- value' ) -- assoc' )
'[ nip @ ] assoc-reject ; inline
: take-while ( ... seq quot: ( ... elt -- ... ? ) -- head-slice )
[ '[ @ not ] find drop ] keepd swap
[ dup length ] unless* head-slice ; inline