Sequential search in lists (secondary keys)


p := list; while p <> nil do begin if key = p^.k then found( p^ ); p := p^.next end;

Pascal source (311d.srch.p)


© Addison-Wesley Publishing Co. Inc.