diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-12-14 20:59:50 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-12-14 20:59:50 +0000 |
| commit | 6a1bfd09b0b9869dfeba6f1a9d183d3c884c984d (patch) | |
| tree | 8035fb52e90010edc554990645da02ee7391679b /challenge-143/james-smith | |
| parent | f8b83a024325ee701d7ed2e6d4feb7e3adbb8589 (diff) | |
| download | perlweeklychallenge-club-6a1bfd09b0b9869dfeba6f1a9d183d3c884c984d.tar.gz perlweeklychallenge-club-6a1bfd09b0b9869dfeba6f1a9d183d3c884c984d.tar.bz2 perlweeklychallenge-club-6a1bfd09b0b9869dfeba6f1a9d183d3c884c984d.zip | |
white space
Diffstat (limited to 'challenge-143/james-smith')
| -rw-r--r-- | challenge-143/james-smith/perl/ch-2.pl | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/challenge-143/james-smith/perl/ch-2.pl b/challenge-143/james-smith/perl/ch-2.pl index ddfe30d376..e3be4ea96c 100644 --- a/challenge-143/james-smith/perl/ch-2.pl +++ b/challenge-143/james-smith/perl/ch-2.pl @@ -8,15 +8,14 @@ use Test::More; use Benchmark qw(cmpthese timethis); use Data::Dumper qw(Dumper); -my @ST = (4,12,24,36,40,60,72,84,112,120,144,180,220,240, - 252,264,312,336,360,364,400,420,432,480,504,540, - 544,600,612,660,672,684,760,792,840,864,900,924, - 936,1012,1080,1092,1104,1120,1200,1260,1300,1320); +my @ST = qw( + 4 12 24 36 40 60 72 84 112 120 144 180 + 220 240 252 264 312 336 360 364 400 420 432 480 + 504 540 544 600 612 660 672 684 760 792 840 864 + 900 924 936 1012 1080 1092 1104 1120 1200 1260 1300 1320 +); my @NST = map { $_ + 15 } @ST; my @TESTS = ( - [ 36, 1 ], - [ 12, 1 ], - [ 6, 0 ], ( map { [$_ => 1] } @ST ), ( map { [$_ => 0] } @NST ), ); |