chickadee » heap » make-min-heap

make-min-heapprocedure
make-min-heap initial-heap-sizeprocedure

Make a min-heap.

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