diff options
| -rw-r--r-- | challenge-153/james-smith/perl/ch-1.pl | 1 | ||||
| -rw-r--r-- | challenge-153/james-smith/perl/ch-2.pl | 8 |
2 files changed, 2 insertions, 7 deletions
diff --git a/challenge-153/james-smith/perl/ch-1.pl b/challenge-153/james-smith/perl/ch-1.pl index 31361e9a91..5f6777bb9b 100644 --- a/challenge-153/james-smith/perl/ch-1.pl +++ b/challenge-153/james-smith/perl/ch-1.pl @@ -1,7 +1,6 @@ #!/usr/local/bin/perl use strict; - use warnings; use feature qw(say); diff --git a/challenge-153/james-smith/perl/ch-2.pl b/challenge-153/james-smith/perl/ch-2.pl index bcb7a9ee5c..d6d22cedb6 100644 --- a/challenge-153/james-smith/perl/ch-2.pl +++ b/challenge-153/james-smith/perl/ch-2.pl @@ -10,16 +10,12 @@ use Data::Dumper qw(Dumper); my @FACT = (1); push @FACT, $_*$FACT[-1] foreach 1..9; -my @TESTS = ( - [ 145, 1 ], - [ 125, 0 ], -); +my @TESTS = ( [ 145, 1 ], [ 125, 0 ], ); is( factorion($_->[0]), $_->[1] ) foreach @TESTS; - done_testing(); -factorion($_) && say for 1..2_177_282; +factorion($_) && say for 1 .. 2_177_282; sub factorion { my $t=0; |