diff options
| -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; |