use Perl

• sources? (Score:1)

  by pmichaud (6013)

  Is there a way we could see the source(s) being used?
  
  Pm
  • Re: (Score:1)

    by smash (7262)

    The sources are available in http://nrc.homelinux.org/parrot/bintree/ [homelinux.org].
    • Re: (Score:1)

      by pmichaud (6013)

      Thanks, that helps a bunch.
      
      Pm
• bintree.pl eq (Score:1)

  by ChrisDolan (2855)

  Your bintree.pl uses string equality ("eq") rather than numeric equality ("==") for x. This introduces overhead of stringification on every recursion step.
  
  • Re: (Score:1)

    by ChrisDolan (2855)

    I cleaned up n_of_nodes as follows and achieved a 20% speedup for the Perl version. Most of the speedup came from changing "eq" to "==" but interestingly using a ternary instead of an if-else helped too. That is probably because I removed a "return" statement in the process.
    
    sub n_of_nodes {
            my ($x) = @_;
            return $x == 0 ? 1 : 1 + n_of_nodes($x-1) + n_of_nodes($x-1);
    }