Select Code to Download

sub count_in_hash {
    my $num_ints = $_[0] // $datasize;
...
        for( 1 .. $num_ints );
    return \%container;
}

sub count_in_array {
    my $num_ints = $_[0] // $datasize;
...
        } 1 .. $#container
    };
}

int rand_ranged_value ( int min, int max )
{
...
    Safefree( int_sieve );
    Inline_Stack_Done;
}

#!/usr/bin/env perl

...
    Inline_Stack_Done;
}

ok 1 - hash_count(): Correct key count in RV.
ok 2 - hash_count(): Correct value count in RV.
...
hash_count    22.8          --        -45%        -92%
array_count   12.4         83%          --        -85%
c_aray_cnt    1.91       1093%        551%          --