`heap-extract-extremum!``heap`procedureReturn and delete the heap's extremum (min or max).

`heap`- The heap from which to extract

(define (heap-extract-extremum! heap) (let ((extremum (heap-extremum heap))) (heap-set! heap 0 (heap-ref heap (- (heap-size heap) 1))) (heap-size-set! heap (- (heap-size heap) 1)) (heapify!/index heap 0) extremum))