P-tree retrieval of head of queue
function inspect ( pq : tree ) : typekey; begin if pq = nil then Error {*** Inspecting an empty queue ***}; while pq^.left <> nil do pq := pq^.left; inspect := pq^.k end;
C
source (512.insp.c)
Pascal
source (512.insp.p)
©
Addison-Wesley
Publishing Co. Inc.