diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-08-17 00:57:43 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-08-17 00:57:43 -0300 |
| commit | bcc6cfc303c6343606f2ce75762c403a385feb52 (patch) | |
| tree | 0e5e5028e58daac84d6938d7e1e32539072178a6 | |
| parent | e9087ef23415d5b64eccf74db4d12249e3c26907 (diff) | |
| download | perlweeklychallenge-club-bcc6cfc303c6343606f2ce75762c403a385feb52.tar.gz perlweeklychallenge-club-bcc6cfc303c6343606f2ce75762c403a385feb52.tar.bz2 perlweeklychallenge-club-bcc6cfc303c6343606f2ce75762c403a385feb52.zip | |
challenge-021 ch-1 comment
| -rw-r--r-- | challenge-021/andrezgz/perl5/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-021/andrezgz/perl5/ch-1.pl b/challenge-021/andrezgz/perl5/ch-1.pl index 22014b8f25..c7bb8de8d7 100644 --- a/challenge-021/andrezgz/perl5/ch-1.pl +++ b/challenge-021/andrezgz/perl5/ch-1.pl @@ -11,7 +11,7 @@ use warnings; my $e_aprox = 0; my $fact = 1; -for (1, 1 .. 100) { +for (1, 1 .. 100) { #tricky - additional 1 to represent 0! $fact *= $_; $e_aprox += 1/$fact; } |