Heap insertion
procedure siftup( var r : RecordArray; i,n : integer ); var j : integer; tempr : ArrayEntry; begin while 2*i<=n do begin j := 2*i; if j
C
source (513.sift.c)
Pascal
source (513.sift.p)
©
Addison-Wesley
Publishing Co. Inc.