diff options
| author | Adam Russell <ac.russell@live.com> | 2022-02-27 18:36:37 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-02-27 18:36:37 -0500 |
| commit | dacce603e3660db207679e6dcb3a32666b9af0b3 (patch) | |
| tree | 7ad3afc867f53fd5ed409cc6fda2893b738023b7 /challenge-153 | |
| parent | ba5ba7520792ff44cdff46d91da7cf5d8530e4db (diff) | |
| download | perlweeklychallenge-club-dacce603e3660db207679e6dcb3a32666b9af0b3.tar.gz perlweeklychallenge-club-dacce603e3660db207679e6dcb3a32666b9af0b3.tar.bz2 perlweeklychallenge-club-dacce603e3660db207679e6dcb3a32666b9af0b3.zip | |
removed unused array
Diffstat (limited to 'challenge-153')
| -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; |