use iota in replicate

2009-08-22 21:00:18 -04:00 · 2009-08-22 21:00:18 -04:00 · 3dce2eda19
parent 7b7f22fae2
commit 3dce2eda19
1 changed files with 2 additions and 0 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -424,9 +424,11 @@ PRIVATE>
    over map-as ; inline

 : replicate ( seq quot -- newseq )
+    [ iota ] dip
    [ drop ] prepose map ; inline

 : replicate-as ( seq quot exemplar -- newseq )
+    [ iota ] 2dip
    [ [ drop ] prepose ] dip map-as ; inline

 : change-each ( seq quot -- )