diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-02-27 23:46:07 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-02-27 23:46:07 +0000 |
| commit | d2dfd9da623bc0e65f481332e461a4b8e73d41d9 (patch) | |
| tree | f94a90884636ccebd00b98040146b9549c2269c3 | |
| parent | 4af5e64ca306c15061746fdd750bfe2d40159ba4 (diff) | |
| parent | dacce603e3660db207679e6dcb3a32666b9af0b3 (diff) | |
| download | perlweeklychallenge-club-d2dfd9da623bc0e65f481332e461a4b8e73d41d9.tar.gz perlweeklychallenge-club-d2dfd9da623bc0e65f481332e461a4b8e73d41d9.tar.bz2 perlweeklychallenge-club-d2dfd9da623bc0e65f481332e461a4b8e73d41d9.zip | |
Merge pull request #5716 from adamcrussell/challenge-153
removed unused array
| -rw-r--r-- | challenge-153/adam-russell/perl/ch-1.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/challenge-153/adam-russell/perl/ch-1.pl b/challenge-153/adam-russell/perl/ch-1.pl index 3e5b1e9a27..3104e9006b 100644 --- a/challenge-153/adam-russell/perl/ch-1.pl +++ b/challenge-153/adam-russell/perl/ch-1.pl @@ -9,7 +9,6 @@ use constant UPPER_BOUND => INT_MAX/1000; sub left_factorials_sieve{ my($n) = @_; my @sieve = (0 .. UPPER_BOUND); - my @left_factorials; my $x = 2; { my @sieve_indices = grep { $_ <= $x || $_ % $x == 0 } 0 .. @sieve - 1; |