1Heap::Elem::NumRev(3) User Contributed Perl DocumentationHeap::Elem::NumRev(3)
2
3
4
6 Heap::Elem::NumRev - Reversed Numeric Heap Elements
7
9 use Heap::Elem::NumRev( NumRElem );
10 use Heap::Fibonacci;
11
12 my $heap = Heap::Fibonacci->new;
13 my $elem;
14
15 foreach $i ( 1..100 ) {
16 $elem = NumRElem( $i );
17 $heap->add( $elem );
18 }
19
20 while( defined( $elem = $heap->extract_top ) ) {
21 print "Largest is ", $elem->val, "\n";
22 }
23
25 Heap::Elem::NumRev is used to wrap numeric values into an element that
26 can be managed on a heap. The top of the heap will have the largest
27 element still remaining. (See Heap::Elem::Num if you want the heap to
28 always return the smallest element.)
29
30 The details of the Elem interface are described in Heap::Elem.
31
32 The details of using a Heap interface are described in Heap.
33
35 John Macdonald, john@perlwolf.com
36
38 Copyright 1998-2007, O'Reilly & Associates.
39
40 This code is distributed under the same copyright terms as perl itself.
41
43 Heap(3), Heap::Elem(3), Heap::Elem::Num(3).
44
45
46
47perl v5.12.0 2007-04-28 Heap::Elem::NumRev(3)