Floyd's heap-construction


for i := (n div 2) downto 1 do siftup(r,i,n);

Pascal source (513.build.p)


© Addison-Wesley Publishing Co. Inc.