Select Code to Download

use Math::Libm qw(erf erfc M_SQRT2);
sub compare_bell_curves {
...
  my $p3 = erfc(($upper-$m2)/$sd2/M_SQRT2)/2;
  $p1+$p2+$p3;
}

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/