Parents: | trees |
Class | Superclass | Slots |
node | tuple | key value left right |
current-side |
Word | Stack effect |
(node>alist) | ( node -- ) |
(node>subalist) | ( from-key to-key node start-comparator: ( key1 key2 -- ? ) end-comparator: ( key1 key2 -- ? ) -- ) |
(node>subalist-left) | ( from-key node start-comparator: ( key1 key2 -- ? ) -- ) |
(node>subalist-right) | ( to-key node end-comparator: ( key1 key2 -- ? ) -- ) |
(nodepath-at) | ( key node -- ) |
(prune-extremity) | ( parent node -- new-extremity ) |
<node> | ( key value -- node ) |
>bfs-alist | ( tree -- alist ) |
?push-children | ( node queue -- ) |
ceiling-node | ( key tree -- node ) |
choose-branch | ( key node -- key node-left/right ) |
clone-nodes | ( node -- node' ) |
copy-node-contents | ( new old -- new ) |
dec-count | ( tree -- ) |
delete-bst-node | ( key node -- node deleted? ) |
delete-node | ( node -- node ) |
delete-node-with-two-children | ( node -- node ) |
each-bfs-node | ( tree quot: ( ... entry -- ... ) -- ... ) |
entry, | ( node -- ) |
first-node | ( tree -- node ) |
floor-node | ( key tree -- node ) |
go-left | ( quot -- ) |
go-left? | ( -- ? ) |
go-right | ( quot -- ) |
higher-node | ( key tree -- node ) |
higher-node-in-child? | ( key node -- ? ) |
inc-count | ( tree -- ) |
key-side | ( k1 k2 -- n ) |
last-node | ( tree -- node ) |
leaf? | ( node -- ? ) |
left | ( -- value ) |
left-extremity | ( node -- node' ) |
lower-node | ( key tree -- node ) |
lower-node-in-child? | ( key node -- ? ) |
new-node | ( key value class -- node ) |
new-tree | ( class -- tree ) |
node+link | ( node -- child ) |
node-at* | ( key node -- value ? ) |
node-height | ( node -- n ) |
node-link | ( node -- child ) |
node-link@ | ( node ? -- node ) |
node-set | ( value key node -- node new? ) |
node>entry | ( node -- entry ) |
nodepath-at | ( key tree -- path ) |
pop-tree-extremity | ( tree node/f -- node/f ) |
prune-extremity | ( node -- new-extremity ) |
random-side | ( -- side ) |
replace-with-child | ( node -- node ) |
replace-with-extremity | ( node -- node ) |
right | ( -- value ) |
right-extremity | ( node -- node' ) |
set-node+link | ( child node -- ) |
set-node-link | ( child node -- ) |
set-node-link@ | ( left parent ? -- ) |
slurp-tree | ( tree quot: ( ... entry -- ... ) getter: ( tree -- node ) -- ... ) |
valid-node? | ( node -- ? ) |
valid-tree? | ( tree -- ? ) |
with-other-side | ( quot -- ) |
with-side | ( side quot -- ) |
Word | Stack effect |
node? | ( object -- ? ) |