Help for this page

Select Code to Download


  1. or download this
    package Top;

...

my $top = Top->new();
find_cycle( $top );
  2. or download this
    Cycle (1):
                   $Top::A->{'bottom'} => \%Bottom::B
                   $Bottom::B->{'top'} => \%Top::A
  3. or download this
    local $| = 1;
for( 1...1_000_000 )
...
  print "\r$_/1000000";
  my $top = Top->new();
}
  4. or download this
    package Top;
use Scalar::Util 'weaken';
...

my $top = Top->new();
my $bottom = $top->{bottom} or die "NO BOTTOM!";