Select Code to Download

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    return substr($str, -6);
}

Deep recursion on subroutine "main::replace_node" at P:\test\398622.pl
+ line 155.

sub replace_node {
    my($tree,$a,$b) = @_;
...
    $_[0] = $tree;
    return;
}

    $_[0] = $tree;
    return;

srand(1);

#!/usr/bin/perl
use strict;
...
Deep recursion on subroutine "main::replace_node" at P:\test\398622.pl
+ line 188.
Deep recursion on subroutine "main::replace_node" at P:\test\398622.pl
+ line 191.
Terminating on signal SIGINT(2)