Select Code to Download

#!/usr/bin/perl -w

use strict ;
...
  my $random_number = int(rand($range)) - $max/2;
  print "$random_number \n";
}

#!/usr/bin/perl -w
use strict ;

...
#abs($point)<=1 ? $unif = .5 : $unif = 0 ;
   print "$point $tria $epan $unif\n" ;
}