#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'monkeys', CLEAN_AFTER_BUILD => 0;

void rnd64( int n ) {
    dXSARGS;
    static unsigned __int64 y = 88172645463325252i64;

    SP = MARK;
    EXTEND( SP, n );
    while( n-- ) {
        y ^= y << 13;
        y ^= y >> 7;
        y ^= y << 17;
        mPUSHu( y );
    }
    PUTBACK;
    return;
}

void rnd64i( int n, AV* av ) {
    dXSARGS;
    SV **ary = AvARRAY( av );
    static unsigned __int64 y = 88172645463325252i64;

    SP = MARK;
    while( n-- ) {
        y ^= y << 13;
        y ^= y >> 7;
        y ^= y << 17;
        sv_setuv( ary[ n ], y );
    }
    PUTBACK;
    return;
}

END_C

use Data::Dump qw[ pp ];
use Devel::Peek;
use Time::HiRes qw[ time ];


my $start = time;
my @rands = (1) x 1e6;
for( 1 .. $ARGV[0] ) {
    @rands = rnd64( 1e6 );
}
my $stop = time;

printf "stack->array assign:   Rate: %.9f\n", ( $stop - $start ) / ( 1e6 * $ARGV[ 0 ] );

$start = time;
my @rands2 = (1) x 1e6;
for( 1 .. $ARGV[0] ) {
    @rands = rnd64i( 1e6, \@rands2 );
}
$stop = time;

printf "Modify array in-place: Rate: %.9f\n", ( $stop - $start ) / ( 1e6 * $ARGV[ 0 ] );
exit;