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

sequences: adding nths-unsafe.

db4
John Benediktsson 2013-04-06 14:20:32 -07:00
parent b129623080
commit f13cbb3c4a
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/sequences/sequences.factor
View File

@ -599,6 +599,13 @@ PRIVATE>
swap V{ } clone swap V{ } clone
[ [ (indices) ] 2curry each-index ] keep ; [ [ (indices) ] 2curry each-index ] keep ;
<PRIVATE
: nths-unsafe ( indices seq -- seq' )
[ [ nth-unsafe ] curry ] keep map-as ;
PRIVATE>
: nths ( indices seq -- seq' ) : nths ( indices seq -- seq' )
[ [ nth ] curry ] keep map-as ; [ [ nth ] curry ] keep map-as ;