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