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

sequences.extras: adding find-last-index.

db4
John Benediktsson 2015-04-27 21:26:34 -07:00
parent bbb06ee814
commit 501b54ce52
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -427,13 +427,13 @@ PRIVATE>
<PRIVATE
: (map-find-index) ( seq quot find-quot -- result elt index )
: (map-find-index) ( seq quot find-quot -- result i elt )
[ [ f ] 2dip [ [ nip ] 2dip call dup ] curry ] dip call
[ [ [ drop f ] unless ] keep ] dip ; inline
PRIVATE>
: map-find-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result elt index )
: map-find-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result i elt )
[ find-index ] (map-find-index) ; inline
: filter-length ( seq n -- seq' ) '[ length _ = ] filter ;
@ -527,3 +527,9 @@ PRIVATE>
: count* ( ... seq quot: ( ... elt -- ... ? ) -- ... % )
over [ count ] [ length ] bi* / ; inline
: find-last-index ( ... seq quot: ( ... elt i -- ... ? ) -- ... i elt )
[ [ 1 - ] dip find-last-integer ] (find-index) ; inline
: map-find-last-index ( ... seq quot: ( ... elt index -- ... result/f ) -- ... result i elt )
[ find-last-index ] (map-find-index) ; inline