diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-01-22 10:22:54 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-01-22 10:22:54 +0000 |
| commit | eb5634ec1dc7cfe04d1bf3c6d4168da186acc25e (patch) | |
| tree | aada1c8390796beb7238878178dc5395f5788728 | |
| parent | b12a3d40f9e6482c68c30233e3bb9f27d1c6a59d (diff) | |
| download | perlweeklychallenge-club-eb5634ec1dc7cfe04d1bf3c6d4168da186acc25e.tar.gz perlweeklychallenge-club-eb5634ec1dc7cfe04d1bf3c6d4168da186acc25e.tar.bz2 perlweeklychallenge-club-eb5634ec1dc7cfe04d1bf3c6d4168da186acc25e.zip | |
moved comment
| -rw-r--r-- | challenge-148/james-smith/perl/ch-1.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/challenge-148/james-smith/perl/ch-1.pl b/challenge-148/james-smith/perl/ch-1.pl index e903159b0c..e306657c65 100644 --- a/challenge-148/james-smith/perl/ch-1.pl +++ b/challenge-148/james-smith/perl/ch-1.pl @@ -8,14 +8,13 @@ use Test::More; use Benchmark qw(cmpthese timethis); use Data::Dumper qw(Dumper); + unless(@ARGV) { + ## All eban numbers less than 1000 say for map{my$a=$_;map{10*$a+2*$_||()}(0..3)}(0,3..6); exit; } -## All eban numbers less than 1000 - - say for my@e=grep{$_}my@n=map{my$a=$_;map{10*$a+2*$_}(0..3)}(0,3..6); for(2..$ARGV[0]){ say for@e=map{my$a=$_;map{$a*1e3+$_}@n}@e; |