use iota in replicate

db4
Doug Coleman 2009-08-22 21:00:18 -04:00
parent 7b7f22fae2
commit 3dce2eda19
1 changed files with 2 additions and 0 deletions

View File

@ -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 -- )