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

make splay trees work

db4
Doug Coleman 2008-04-28 14:48:37 -05:00
parent bd654f8621
commit 4b3fd628a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/trees/splay/splay.factor
View File

@ -30,13 +30,13 @@ INSTANCE: splay tree-mixin
drop dup node-right swapd r> swap ; drop dup node-right swapd r> swap ;
: cmp ( key node -- obj node -1/0/1 ) : cmp ( key node -- obj node -1/0/1 )
2dup node-key <=> ; 2dup node-key key-side ;
: lcmp ( key node -- obj node -1/0/1 ) : lcmp ( key node -- obj node -1/0/1 )
2dup node-left node-key <=> ; 2dup node-left node-key key-side ;
: rcmp ( key node -- obj node -1/0/1 ) : rcmp ( key node -- obj node -1/0/1 )
2dup node-right node-key <=> ; 2dup node-right node-key key-side ;
DEFER: (splay) DEFER: (splay)