Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    my ($x) = @_;
    return $x*(rand()-0.5)*exp(rand());
}

#!/usr/bin/perl
use strict;
use warnings;
...
0.3617    0.8983    0.0018
0.0035    0.9874    0.0340
0.7896    0.7058    0.0764