leto / math--gsl

Click here to lend your support to: math--gsl and make a donation at www.pledgie.com !

Perl interface to the GNU Scientific Library 

Re-enables NTuple tests, which fail by returning a non-zero Wstat
leto (author)
Fri May 08 09:00:10 -0700 2009
commit  19ceffe3869857fdd6f4f68041ce2b6c42d20626
tree    75257c726adb1a5d131b0976faeaa1d33ddcba10
parent  0d31838589c7a0a5351e02c7395d7292a6eea44b
math--gsl / examples / rng
100755 13 lines (9 sloc) 0.275 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl -w
 
use strict;
use Math::GSL::RNG qw/:all/;
 
my $rng = Math::GSL::RNG->new($gsl_rng_knuthran, int rand(1e5) );
my ($num,$min,$max) = @ARGV;
$num ||= 10;
$min ||= 0;
$max ||= 100;
 
print join("\n", map { $min + $rng->get % ($max-$min+1)  } (1..$num)) . "\n";