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

sequences.extras: adding map-index!.

db4
John Benediktsson 2012-08-08 20:07:38 -07:00
parent 2e9c20a12e
commit 3f11990452
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/sequences/extras/extras.factor
View File

@ -224,3 +224,6 @@ PRIVATE>
[ find ] 2keep rot [ [ find ] 2keep rot [
[ 1 + ] 2dip find-from drop not [ 1 + ] 2dip find-from drop not
] [ 3drop f ] if ; inline ] [ 3drop f ] if ; inline
: map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
over [ [ (each-index) ] dip collect ] keep ; inline