diff options
| author | Steven Wilson <steven1170@zoho.eu> | 2019-08-12 16:52:33 +0100 |
|---|---|---|
| committer | Steven Wilson <steven1170@zoho.eu> | 2019-08-12 16:52:33 +0100 |
| commit | 28a44cbc4f8b534e194ea96190c88eeaa6dc44fe (patch) | |
| tree | f61cf5b33882a9ed1a2c94bdf33b7b33522911fc | |
| parent | ff2eb9d216c820d3549a95a6f3ecb5edc0cdcd47 (diff) | |
| download | perlweeklychallenge-club-28a44cbc4f8b534e194ea96190c88eeaa6dc44fe.tar.gz perlweeklychallenge-club-28a44cbc4f8b534e194ea96190c88eeaa6dc44fe.tar.bz2 perlweeklychallenge-club-28a44cbc4f8b534e194ea96190c88eeaa6dc44fe.zip | |
add comment- not very accurate
| -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); |