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

interval-maps: first2 is faster.

db4
John Benediktsson 2012-08-24 14:25:19 -07:00
parent 29a11cc21a
commit f496a05695
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/interval-maps/interval-maps.factor
View File

@ -16,7 +16,7 @@ ALIAS: value third
array>> [ start <=> ] with search nip ; array>> [ start <=> ] with search nip ;
: interval-contains? ( key interval-node -- ? ) : interval-contains? ( key interval-node -- ? )
[ start ] [ end ] bi between? ; first2 between? ;
: all-intervals ( sequence -- intervals ) : all-intervals ( sequence -- intervals )
[ [ dup number? [ dup 2array ] when ] dip ] { } assoc-map-as ; [ [ dup number? [ dup 2array ] when ] dip ] { } assoc-map-as ;
@ -56,7 +56,7 @@ PRIVATE>
! Only works with integer keys, because they're discrete ! Only works with integer keys, because they're discrete
! Makes 2array keys ! Makes 2array keys
[ [
alist sort-keys unclip swap [ [ first dup ] [ second ] bi ] dip alist sort-keys unclip swap [ first2 dupd ] dip
[| oldkey oldval key val | ! Underneath is start [| oldkey oldval key val | ! Underneath is start
oldkey 1 + key = oldkey 1 + key =
oldval val = and oldval val = and