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

grouping: making monotonic? faster.

db4
John Benediktsson 2013-03-06 07:31:45 -08:00
parent 019080d82d
commit a60b49630f
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/grouping/grouping.factor
View File

@ -97,32 +97,18 @@ INSTANCE: sliced-clumps abstract-clumps
: clump ( seq n -- array ) <clumps> { } like ; : clump ( seq n -- array ) <clumps> { } like ;
: monotonic? ( seq quot: ( elt1 elt2 -- ? ) -- ? ) : monotonic? ( seq quot: ( elt1 elt2 -- ? ) -- ? )
over length 2 < [ 2drop t ] [ over length dup 2 < [ 3drop t ] [
over length 2 = [ 2 = [
[ first2-unsafe ] dip call [ first2-unsafe ] dip call
] [ ] [
[ 2 <sliced-clumps> ] dip [ [ first-unsafe 1 ] [ ((each)) ] bi ] dip
'[ first2-unsafe @ ] all? '[ @ _ keep swap ] (all-integers?) nip
] if ] if
] if ; inline ] if ; inline
: all-equal? ( seq -- ? ) : all-equal? ( seq -- ? ) [ = ] monotonic? ;
dup length dup 2 < [ 2drop t ] [
2 = [
first2-unsafe =
] [
dup first-unsafe [ = ] curry all?
] if
] if ;
: all-eq? ( seq -- ? ) : all-eq? ( seq -- ? ) [ eq? ] monotonic? ;
dup length dup 2 < [ 2drop t ] [
2 = [
first2-unsafe eq?
] [
dup first-unsafe [ eq? ] curry all?
] if
] if ;
TUPLE: circular-slice { from read-only } { to read-only } { seq read-only } ; TUPLE: circular-slice { from read-only } { to read-only } { seq read-only } ;