perl -e 'srand(0); print int(rand(99)) for 0 .. 9'

##</code><code>##

use strict;
use warnings;

use Inline C => <<'EOC';

SV * max_rand() {
  return newSViv(RAND_MAX);
}

void my_srand(int seed) {
  srand(seed);
}

SV * my_int_rand(IV limit) {
  return newSViv(rand() * limit / RAND_MAX);
}

SV * my_float_rand(IV limit) {
  return newSVnv((NV)rand() * limit / RAND_MAX);
}

EOC

print "RAND_MAX is: ",max_rand(), "\n";

my_srand(0);

 print  my_int_rand(99)       for 0 .. 9;
#print int(my_float_rand(99)) for 0 .. 9;