branch

Vocabulary

persistent.heaps.private

Definition

IN: persistent.heaps.private

TUPLE: branch value prio left right ;

Methods

USING: accessors kernel persistent.heaps
persistent.heaps.private ;

M: branch pheap-peek [ value>> ] [ prio>> ] bi ;


USING: accessors kernel math persistent.heaps
persistent.heaps.private ;

M: branch pheap-push
    [ prio>> <= ] 2check [ push-top ] [ push-in ] if ;


USING: accessors kernel math persistent.heaps.private ;

M: branch sift-down
    [ [ prio>> <= ] both-with? ] 3check
    [ <branch> ] [
        [ [ prio>> ] bi@ <= ] 2check
        [ reroot-left ] [ reroot-right ] if
    ] if ;