Help for this page

Select Code to Download


  1. or download this
    sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    return substr($str, -6);
}
  2. or download this
    Deep recursion on subroutine "main::replace_node" at P:\test\398622.pl
+ line 155.
  3. or download this
    sub replace_node {
    my($tree,$a,$b) = @_;
...
    $_[0] = $tree;
    return;
}
  4. or download this
        $_[0] = $tree;
    return;
  5. or download this
    srand(1);
  6. or download this
    #!/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)