diff options
| -rw-r--r-- | challenge-021/steven-wilson/perl5/ch-01.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-021/steven-wilson/perl5/ch-01.pl b/challenge-021/steven-wilson/perl5/ch-01.pl index a985076177..7e92b02b9d 100644 --- a/challenge-021/steven-wilson/perl5/ch-01.pl +++ b/challenge-021/steven-wilson/perl5/ch-01.pl @@ -28,5 +28,6 @@ while ( $e != $previous_e ) { $e += ( 1 / $factorial ); } -my $dp = 50; +# This is only accurate to 15 decimal places, oops. +my $dp = 15; say "value of e to $dp decimal places: ", $e->fround($dp); |