Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
    print join(' ', map { sprintf '%2d', $_ } $visitor->getResults), "
+\n";
    $btree->DESTROY;
}

Select or download this

13:09 >perl 1475_SoPW.pl
 0  9 14 33 37 55 60 77 89 99
...
 0  8 13 15 19 51 52 71 78 85

13:09 >