chickadee » heap » make-max-heap

make-max-heapprocedure
make-max-heap initial-heap-sizeprocedure

Make a max-heap.

size
Initial heap-size
(define make-max-heap
  (case-lambda
    (() (make-max-heap (initial-heap-size)))
    ((initial-heap-size)
     (make-heap
       >
       <
       -inf.0
       (make-vector initial-heap-size)
       0
       (make-hash-table)))))