Heap::Elem::RefRev - Reversed Object Reverence Heap Elements
use Heap::Elem::RefRev( RefRElem );
use Heap::Fibonacci;
my $heap = Heap::Fibonacci->new;
my $elem;
foreach $i ( 1..100 ) {
$obj = myObject->new( $i );
$elem = RefRElem( $obj );
$heap->add( $elem );
}
while( defined( $elem = $heap->extract_top ) ) {
# assume that myObject object have a method I<printable>
print "Largest is ", $elem->val->printable, "\n";
}
Heap::Elem::RefRev is used to wrap object reference values into an
element that can be managed on a heap. Each referenced object must
have a method cmp which can compare itself with any of the other
objects that have references on the same heap. These comparisons
must be consistant with normal arithmetic. The top of the heap will
have the largest (according to cmp) element still remaining.
(See the Heap::Elem::Ref manpage if you want the heap to always return the
smallest element.)
The details of the Elem interface are described in the Heap::Elem manpage.
The details of using a Heap interface are described in Heap.
John Macdonald, john@perlwolf.com
Copyright 1998-2007, O'Reilly & Associates.
This code is distributed under the same copyright terms as perl itself.
Heap(3), Heap::Elem(3), Heap::Elem::Ref(3).
|