diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-02-21 13:14:05 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-02-21 13:14:05 +0000 |
| commit | 288057989ae51d735f24d2d9bcd0f2c1ce09e032 (patch) | |
| tree | 9a2dc85fb8afc5ca104038a04ebe50bfd724a851 | |
| parent | 0ceb8155ce17c3bf0a6eec8c52e20363dcbe9b92 (diff) | |
| download | perlweeklychallenge-club-288057989ae51d735f24d2d9bcd0f2c1ce09e032.tar.gz perlweeklychallenge-club-288057989ae51d735f24d2d9bcd0f2c1ce09e032.tar.bz2 perlweeklychallenge-club-288057989ae51d735f24d2d9bcd0f2c1ce09e032.zip | |
pushing changes
| -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; |