From eb5634ec1dc7cfe04d1bf3c6d4168da186acc25e Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Sat, 22 Jan 2022 10:22:54 +0000
Subject: moved comment

---
 challenge-148/james-smith/perl/ch-1.pl | 5 ++---
 1 file 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;
-- 
cgit