Re: new DLL compile code inside script languages

PDL should be faster (after compilation)

#!/usr/bin/perl --
use strict;
use warnings;
use PDL;

use Inline qw( Pdlpp );
print pdl(1)->eight,"\n";
print pdl(10)->eight,"\n";
print pdl(100)->eight,"\n";
print pdl(100000000 )->eight,"\n";

__DATA__

__Pdlpp__

pp_addhdr( '
   double eight_sum(int n)
   {
     int i, sum = 0;
     for (i=1; i<=n; i++) {
       sum += i;
      }
     return sum;
   }
   ' );

pp_def(
    'eight',
    Pars => 'int a(); int [o]b();',
    Code => '$b()=eight_sum($a());'
);

pp_done();
[download]

On my system

time perl inline.pdlpp2.pl
1
55
5050
987459712

real 1.00
user 0.00
sys  0.00
[download]

Comment on Re: new DLL compile code inside script languages Select or Download Code

Replies are listed 'Best First'.
Re^2: new DLL compile code inside script languages by Anonymous Monk on Jul 04, 2009 at 14:48 UTC
It takes 7seconds on first run to compile, after that its really fast `$ call time perl inline.pdlpp2.pl 1 55 5050 987459712 real 7.00 user 0.00 sys 0.00 $ call time perl inline.pdlpp2.pl 1 55 5050 987459712 real 0.00 user 0.00 sys 0.00` [download]	[reply] [d/l]