Heap delete-insert


procedure delinsert( new : RecordEntry; var r : RecordArray ); begin r[1] := new; siftup( r, 1, n ) end;

Pascal source (513.delins.p)


© Addison-Wesley Publishing Co. Inc.