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

sequences: use each-integer and all-integers? instead of iota.

db4
John Benediktsson 2013-03-22 14:23:08 -07:00
parent 17945addfe
commit d802db939a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
core/sequences/sequences.factor
View File

@ -789,8 +789,9 @@ PRIVATE>
: reverse! ( seq -- seq )
[
[ midpoint@ iota ] [ length ] [ ] tri
[ [ over - 1 - ] dip exchange-unsafe ] 2curry each
[ midpoint@ ] [ length ] [ ] tri
[ [ over - 1 - ] dip exchange-unsafe ] 2curry
each-integer
] keep ;
: reverse ( seq -- newseq )
@ -909,17 +910,16 @@ PRIVATE>
<PRIVATE
: (start) ( subseq seq n -- subseq seq ? )
pick length iota [
: (start) ( subseq seq n length -- subseq seq ? )
[
[ 3dup ] dip [ + swap nth-unsafe ] keep rot nth-unsafe =
] all? nip ; inline
] all-integers? nip ; inline
PRIVATE>
: start* ( subseq seq n -- i )
pick length pick length swap - 1 + iota
[ (start) ] find-from
swap [ 3drop ] dip ;
pick length [ pick length swap - 1 + ] keep
[ (start) ] curry (find-integer) 2nip ;
: start ( subseq seq -- i ) 0 start* ; inline