Select Code to Download

sub bRand {
    my( $target, $variance ) = @_;
    my $v = sum map rand() * $variance, 1 .. 4;
    return $target - $variance + ( $v / 2 );
}

P:\test>501053 -PRECISION=10 -N=50 -V=5 -ITERS=100000
50 +-5
...
  54.50 : 2   :
  54.60 : 2   :