sequences.extras: adding map-index!.

2012-08-08 20:07:38 -07:00 · 2012-08-08 20:07:38 -07:00 · b6c01917ab
parent caf66c9be5
commit b6c01917ab
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -224,3 +224,6 @@ PRIVATE>
    [ find ] 2keep rot [
        [ 1 + ] 2dip find-from drop not
    ] [ 3drop f ] if ; inline
+
+: map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq )
+    over [ [ (each-index) ] dip collect ] keep ; inline