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

assocs.extras: adding assoc-sift.

db4
John Benediktsson 2014-02-13 20:08:12 -08:00
parent 5ad200a41a
commit e9e4115de1
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/assocs/extras/extras.factor
View File

@ -5,6 +5,9 @@ USING: arrays assocs assocs.private kernel math sequences ;
IN: assocs.extras IN: assocs.extras
: assoc-sift ( assoc -- assoc' )
[ nip ] assoc-filter ; inline
: assoc-harvest ( assoc -- assoc' ) : assoc-harvest ( assoc -- assoc' )
[ nip empty? not ] assoc-filter ; inline [ nip empty? not ] assoc-filter ; inline