binary-trees Perl #3 program | Computer Language Benchmarks Game

performance measurements

Each table row shows performance measurements for this Perl program with a particular command-line input value N.

N	CPU secs	Elapsed secs	Memory KB	Code B	≈ CPU Load
12	Failed			706

Read the ↓ make, command line, and program output logs to see how this program was run.

Read binary-trees benchmark to see what this program should do.

notes

This is perl 5, version 18, subversion 0 (v5.18.0) built for i686-linux

Compile-time options: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV
                        PERL_HASH_FUNC_ONE_AT_A_TIME_HARD PERL_MALLOC_WRAP
                        PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_LARGE_FILES
                        USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE
                        USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF

binary-trees Perl #3 program source code

# The Computer Language Benchmarks Game
# http://benchmarksgame.alioth.debian.org/
# 
# contributed by Emanuele Zeppieri
# modified by Christian Walde (threads)

use threads;

sub bottomup_tree {
    my ( $value, $depth ) = @_;
    return $value unless $depth;
    my $value2 = $value * 2;
    $depth--;
    return [ bottomup_tree( $value2 - 1, $depth ), bottomup_tree( $value2, $depth ), $value ];
}

sub check_tree {
    my ( $left, $right, $value ) = @{ $_[0] };
    return $value + ( ref $left ? check_tree( $left ) - check_tree( $right ) : $left - $right );
}

sub depth_iteration {
    my ( $depth, $max_depth, $min_depth ) = @_;

    my $iterations = 2 << $max_depth - $depth + $min_depth - 1;
    my $check      = 0;

    foreach ( 1 .. $iterations ) {
        $check += check_tree( bottomup_tree( $_,  $depth ) );
        $check += check_tree( bottomup_tree( -$_, $depth ) );
    }

    return ( $depth => [ $iterations, $depth, $check ] );
}

my $max_depth = shift @ARGV;
my $min_depth = 4;

$max_depth = $min_depth + 2 if $min_depth + 2 > $max_depth;

my $stretch_depth = $max_depth + 1;
my $stretch_tree = bottomup_tree( 0, $stretch_depth );
print "stretch tree of depth $stretch_depth\t check: ", check_tree( $stretch_tree ), "\n";
undef $stretch_tree;

my $longlived_tree = bottomup_tree( 0, $max_depth );

my @results;
for ( my $depth = $min_depth ; $depth <= $max_depth ; $depth += 2 ) {
    while ( 1 ) {
        last if threads->list < 4;
        push @results, $_->join for threads->list( threads::joinable );
    }

    threads->create(
        { 'context' => 'list', 'stack_size' => 64 },    #
        sub { depth_iteration( $depth, $max_depth, $min_depth ) }
    );
}

while ( threads->list ) {
    push @results, $_->join for threads->list( threads::joinable );
}

my %results = @results;
for my $key ( sort { $a <=> $b } keys %results ) {
    my ( $iterations, $depth, $check ) = @{ $results{$key} };
    print 2 * $iterations, "\t trees of depth $depth\t check: ", $check, "\n";
}

print "long lived tree of depth $max_depth\t check: ", check_tree( $longlived_tree ), "\n";

make, command-line, and program output logs

Tue, 21 May 2013 17:43:37 GMT

COMMAND LINE:
/usr/local/src/perl-5.18.0_no_ithreads_no_multi/bin/perl binarytrees.perl-3.perl 12

PROGRAM FAILED 


PROGRAM OUTPUT:

This Perl not built to support threads
Compilation failed in require at binarytrees.perl-3.perl line 7.
BEGIN failed--compilation aborted at binarytrees.perl-3.perl line 7.

Home Conclusions License Play

Ubuntu : Intel® Q6600® one coreComputer Language Benchmarks Game [[ Play ]]

performance measurements

notes

binary-trees Perl #3 program source code

make, command-line, and program output logs

Ubuntu : Intel® Q6600® one core
Computer Language Benchmarks Game [[ Play ]]