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

sequences: faster head? and tail?.

db4
John Benediktsson 2014-02-06 20:49:39 -08:00
parent 88f163d28f
commit 64e56f65ef
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/sequences/sequences.factor
View File

@ -864,8 +864,8 @@ PRIVATE>
: pad-tail ( seq n elt -- padded ) : pad-tail ( seq n elt -- padded )
[ append ] padding ; [ append ] padding ;
: shorter? ( seq1 seq2 -- ? ) [ length ] bi@ < ; : shorter? ( seq1 seq2 -- ? ) [ length ] bi@ < ; inline
: longer? ( seq1 seq2 -- ? ) [ length ] bi@ > ; : longer? ( seq1 seq2 -- ? ) [ length ] bi@ > ; inline
: shorter ( seq1 seq2 -- seq ) [ [ length ] bi@ <= ] 2keep ? ; inline : shorter ( seq1 seq2 -- seq ) [ [ length ] bi@ <= ] 2keep ? ; inline
: longer ( seq1 seq2 -- seq ) [ [ length ] bi@ >= ] 2keep ? ; inline : longer ( seq1 seq2 -- seq ) [ [ length ] bi@ >= ] 2keep ? ; inline
@ -873,14 +873,16 @@ PRIVATE>
2dup shorter? [ 2dup shorter? [
2drop f 2drop f
] [ ] [
[ nip ] [ length head-slice ] 2bi sequence= [ length [ head-slice ] keep swap ] keep
mismatch-unsafe not
] if ; ] if ;
: tail? ( seq end -- ? ) : tail? ( seq end -- ? )
2dup shorter? [ 2dup shorter? [
2drop f 2drop f
] [ ] [
[ nip ] [ length tail-slice* ] 2bi sequence= [ length [ tail-slice* ] keep swap ] keep
mismatch-unsafe not
] if ; ] if ;
: cut-slice ( seq n -- before-slice after-slice ) : cut-slice ( seq n -- before-slice after-slice )