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

Minor optimization in unclip-slice

db4
Slava Pestov 2008-11-29 10:38:43 -06:00
parent cbf392c889
commit f675223873
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/sequences/sequences.factor
View File

@ -101,14 +101,17 @@ M: integer nth-unsafe drop ;
INSTANCE: integer immutable-sequence
: first-unsafe
0 swap nth-unsafe ; inline
: first2-unsafe
[ 0 swap nth-unsafe 1 ] [ nth-unsafe ] bi ; inline
[ first-unsafe ] [ 1 swap nth-unsafe ] bi ; inline
: first3-unsafe
[ first2-unsafe 2 ] [ nth-unsafe ] bi ; inline
[ first2-unsafe ] [ 2 swap nth-unsafe ] bi ; inline
: first4-unsafe
[ first3-unsafe 3 ] [ nth-unsafe ] bi ; inline
[ first3-unsafe ] [ 3 swap nth-unsafe ] bi ; inline
: exchange-unsafe ( m n seq -- )
[ tuck [ nth-unsafe ] 2bi@ ]
@ -774,13 +777,13 @@ PRIVATE>
tuck [ tail-slice ] 2bi@ ;
: unclip ( seq -- rest first )
[ rest ] [ first ] bi ;
[ rest ] [ first-unsafe ] bi ;
: unclip-last ( seq -- butlast last )
[ but-last ] [ peek ] bi ;
: unclip-slice ( seq -- rest-slice first )
[ rest-slice ] [ first ] bi ; inline
[ rest-slice ] [ first-unsafe ] bi ; inline
: 2unclip-slice ( seq1 seq2 -- rest-slice1 rest-slice2 first1 first2 )
[ unclip-slice ] bi@ swapd ; inline