[Home]
[Chapter]
[Contents]
[Previous Algorithm]
[Next Algorithm]

P-tree deletion of maximum


procedure delete ( var pq : tree ); begin if pq = nil then Error {*** deletion on an empty queue ***} else if pq^.left = nil then pq := nil else if pq^.left^.left = nil then begin pq^.left := pq^.right; pq^.right := nil end else delete( pq^.left ) end;

C source (512.del.c) Pascal source (512.del.p)


© Addison-Wesley Publishing Co. Inc.