view release on metacpan or  search on metacpan

example/gen-sample.pl  view on Meta::CPAN

	Normal([mean=0,]deviation=1),
	Exp(mean=1),
	Bernoulli(probability=0.5),
	Uniform([lower=0,]upper=1),
	Dice(n=6),
USAGE
	exit 1;
};

# some useful functions absent in perl
sub pi() { 4*atan2 1,1};
sub atan($;$) {$_[1] = 1 unless defined $_[1]; return atan2 $_[0],$_[1]};

my @todo;
while (@ARGV) {
	my $n = shift;
	if ($n !~ /^\d+$/) {
		die "Random var count must be a positive integer. See $0 --help";
	};

	my $expr = shift;