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

interval-sets: can just check one side or the other.

db4
John Benediktsson 2014-05-19 09:40:51 -07:00
parent 5a5c1b857f
commit 376121eeed
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/interval-sets/interval-sets.factor
View File

@ -20,9 +20,8 @@ PRIVATE>
: in? ( key set -- ? ) : in? ( key set -- ? )
check-interval-set array>> check-interval-set array>>
over dupd [ >=< ] curry search drop [ dupd [ <=> ] with search swap [
dup even? [ dup 1 + ] [ [ 1 - ] keep ] if rot even? [ >= ] [ 1 - <= ] if
[ nth-unsafe ] curry bi@ 1 - between?
] [ 2drop f ] if* ; ] [ 2drop f ] if* ;
<PRIVATE <PRIVATE