Help for this page

Select Code to Download


  1. or download this
    use bigrat;
use strict;
...
my $ev = exp($lnev);
print "ev is $ev\n";
print "1-ev is ", 1-$ev, "\n";
  2. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/