#!/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();