sequences.extras: adding 2map-index.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 47e8dc87094b78e223494b31e3e882a2acfda056..69ac732dd733c91f2db0244d590ee016512bd53a 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -108,3 +108,5 @@ IN: sequences.extras.tests
 { f } [ { 1 2 3 4 } [ even? ] one? ] unit-test
 { t } [ { 1 2 3 } [ even? ] one? ] unit-test
 { f } [ { } [ even? ] one? ] unit-test
+
+{ { { 5 8 0 } { 6 9 1 } { 7 10 2 } } } [ { 5 6 7 } { 8 9 10 } [ 3array ] 2map-index ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 6fffa4fe45f71dc0faf79f776cb5d0e5ceb7c4ff..927087626686b725c20abd0939bf35b1bc489ef4 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -233,3 +233,6 @@ PRIVATE>
 
 : 2map! ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... newelt ) -- ... seq1 )
     pick [ 2map-into ] keep ; inline
+
+: 2map-index ( ... seq1 seq2 quot: ( ... elt1 elt2 index -- ... newelt ) -- ... newseq )
+    pick [ (2each-index) ] dip map-integers ; inline