x64 Ubuntu : Intel® Q6600® quad-core
Computer Language Benchmarks Game      [[ Play ]]

- all benchmarks - n-body fannkuch-redux meteor-contest fasta fasta-redux spectral-norm reverse-complement mandelbrot k-nucleotide regex-dna pidigits chameneos-redux thread-ring binary-trees-redux binary-trees - all languages - Ada 2005 GNAT ATS C gcc Clojure C# Mono C++ g++ Dart Erlang Erlang HiPE F# Mono Fortran Intel Go Haskell GHC Java 7 Lisp SBCL OCaml Pascal Free Pascal Perl PHP Python 3 Racket Ruby 2.0 Ruby JRuby Scala x86 one core x64 quad-core x86 quad-core x64 one core

 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
1,000	11.71	3.69	32,404	592	64% 90% 95% 68%
4,000	185.92	50.01	141,148	592	96% 92% 95% 89%
16,000	3,071.49	799.01	147,540	592	96% 97% 95% 97%

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

Read mandelbrot benchmark to see what this program should do.

 notes

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

Compile-time options: HAS_TIMES MULTIPLICITY PERLIO_LAYERS
                        PERL_DONT_CREATE_GVSV
                        PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
                        PERL_PRESERVE_IVUV PERL_SAWAMPERSAND USE_64_BIT_ALL
                        USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
                        USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE
                        USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF
                        USE_REENTRANT_API

 mandelbrot Perl #4 program source code

# The Computer Language Benchmarks Game
# http://benchmarksgame.alioth.debian.org/
#
# contributed by Rodrigo de Almeida Siqueira
# parallelised by Philip Boulain

use strict;
use threads;

my $threads = 6; # Workers; ideally slightly overshoots number of processors

my $MAXITER = 50;
my $LIMIT = 4;
my $xmin = -1.5;
my $ymin = -1;

my ($w, $h);

$w = $h = shift || 200;
my $invN = 2/$w;

print "P4\n$w $h\n"; # PBM image header

sub lines {

  my $y1 = shift;
  my $y2 = shift;
  my @v;

  my $checknext=1;

  for my $y ($y1..$y2) {

    my $Ci = $y * $invN + $ymin;

    X:
    for my $x (0..$w-1) {

      my ($Zr, $Zi, $Tr, $Ti);

      my $Cr = $x * $invN + $xmin;

      if ($checknext) {

        # Iterate with checking (likely outer pixel)
        for (1..$MAXITER) {
          $Zi = 2 * $Zr * $Zi + $Ci;
          $Zr = $Tr - $Ti + $Cr;
          $Ti = $Zi * $Zi;
          $Tr = $Zr * $Zr;

          if ($Tr + $Ti > $LIMIT) {
            push @v, 0; # White pixel
            next X;
          }
        }

        push @v, 1;     # Black pixel
        $checknext = 0; # Is inner pixel.

      } else {

        # Iterate without checking (likely inner pixel)

        for (1..$MAXITER) {
          $Zi = 2 * $Zr * $Zi + $Ci;
          $Zr = $Tr - $Ti + $Cr;
          $Ti = $Zi * $Zi;
          $Tr = $Zr * $Zr;
        }

        if ($Tr+$Ti <= 4) {
          push @v, 1;
        } else { # $Tr+$Ti is a large number or overflow ('nan' or 'inf')
          push @v, 0;
          $checknext = 1;
        }

      }

    }

  }
  return pack 'B*', pack 'C*', @v;

}


use constant MAXPIXEL => 524288; # Maximum pixel buffer per thread
my $each = int($h / $threads);
$each = int(MAXPIXEL / $w) if ($each * $w) > MAXPIXEL;
$each = 1 if $each < 1;
$|=1;

my $y = 0;
my @workers;
# Work as long as we have lines to spawn for or threads to collect from
while(@workers or ($y < $h)) {
  # Create workers up to requirement
  while((@workers < $threads) and ($y < $h)) {
    my $y2 = $y + $each;
    $y2 = $h if $y2 > $h;
    push(@workers, threads->create('lines', $y, $y2-1));
    $y = $y2;
  }
  # Block for result from the leading thread (to keep output in order)
  my $next = shift @workers;
  print $next->join();
}

 make, command-line, and program output logs

Tue, 21 May 2013 07:29:55 GMT

COMMAND LINE:
/usr/local/src/perl-5.18.0/bin/perl mandelbrot.perl-4.perl 16000

(BINARY) PROGRAM OUTPUT NOT SHOWN

  Home   Conclusions   License   Play