steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use iota in replicate

db4
Doug Coleman 2009-08-22 20:59:36 -04:00
parent 679a7c9b01
commit 87a6e9cb31
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/sequences/sequences.factor
View File

@ -99,10 +99,10 @@ M: f like drop [ f ] when-empty ; inline
INSTANCE: f immutable-sequence INSTANCE: f immutable-sequence
! Integers support the sequence protocol ! Integers support the sequence protocol
M: integer length ; inline ! M: integer length ; inline
M: integer nth-unsafe drop ; inline ! M: integer nth-unsafe drop ; inline
INSTANCE: integer immutable-sequence ! INSTANCE: integer immutable-sequence
PRIVATE> PRIVATE>
@ -424,9 +424,10 @@ PRIVATE>
over map-as ; inline over map-as ; inline
: replicate ( seq quot -- newseq ) : replicate ( seq quot -- newseq )
[ drop ] prepose map ; inline [ iota ] dip [ drop ] prepose map ; inline
: replicate-as ( seq quot exemplar -- newseq ) : replicate-as ( seq quot exemplar -- newseq )
[ iota ] 2dip
[ [ drop ] prepose ] dip map-as ; inline [ [ drop ] prepose ] dip map-as ; inline
: change-each ( seq quot -- ) : change-each ( seq quot -- )