sequences.extras: adding replicate-into.

2014-02-27 14:31:25 -08:00 · 2014-02-27 14:31:25 -08:00 · 13a84d1ff1
parent dae32f2d9d
commit 13a84d1ff1
1 changed files with 3 additions and 0 deletions
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@ -524,3 +524,6 @@ PRIVATE>

 : change-last-unsafe ( seq quot -- )
    [ drop length 1 - ] [ change-nth-unsafe ] 2bi ; inline
+
+: replicate-into ( ... seq quot: ( ... -- ... newelt ) -- ... )
+    over [ length ] 2dip '[ _ dip _ set-nth-unsafe ] each-integer ; inline