use iota in replicate
parent
7b7f22fae2
commit
3dce2eda19
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue