heap-pop-all ( heap -- alist )

Vocabulary

heaps

Inputs

heap

an object

Outputs

alist

an object

Definition

USING: arrays kernel sequences vectors ;

IN: heaps

: heap-pop-all ( heap -- alist )
    [ heap-size <vector> ] keep
    [ swap 2array suffix! ] slurp-heap { } like ;